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MBSTStMCI 

The Navy Medical Administrative unit (NMAU) for the 
Monterey Peninsula has a challenging mission which encompasses 
many administrative tasks. Medical readiness and occupational 
health requirements are tracked for all Navy and Marine Corps 
personnel in the region. In order to fulfill their mission 
satisfactorily, it was necessary for NMAU to get an automated 
database management system. The Flight Surgeon at the Naval 
Postgraduate School works very closely with NMAU. The Plight 
Surgeon's administrative responsibilities %#ould also benefit 
from a database system. Based on the requirements for NMAU a 
database system was designed and lsq>lemented in their clinic. 
Based on the Flight Surgeon's requirements the data base 
system was further analyzed in order to assist future upgrades 
that would employ the flight surgeon's requirements. The 
primary objective, however, was to get a system on line for 
NMAU that would enable them to effectively and efficiently 
execute their mission. The Navy Medical Administrative unit 
Database System (NMAUDS 1.0) was the result of the previously 
described endeavors; it was written in dBASE IV version 1.5 
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I. INTRODnCTION 


This thesis designed and implemented a database system for 
the Navy Medical Administrative Unit (NMAU) at The Presidio of 
Monterey. NMAU supports all military units on the Monterey 
Peninsula with Navy and Marine Corps personnel assigned. The 
list of units include The Naval Postgraduate School (NPGS), 
Fleet Numeric Oceanographic Center (FNOC), Naval Security 
Group Detachment (NSGD), Naval Telecommunications Center 
(NTCC), Marine Corps Detachment (MCD), Personnel Support 
Detachment (PSD), Navy Research Laboratory (NRL), Defense 
Manpower Detachment Center (DMDC), and Branch Dental Clinic 
(BDC). The implementation of a database system greatly 
reduced the work hours spent on specific administrative tasks 
that are instrumental in accomplishing NMAU's principal task 
of medical readiness. The primary function of the database 
system is to maintain the necessary occupational health 
information on Navy and Marine Corps personnel. From this 
database standard reports are generated and ad hoc queries and 
reports are created. 

The database design also considered the Flight Surgeon's 
functional requirements. Located at NPGS, the Flight Surgeon 
works closely with NMAU, as over seventy-five percent of the 
personnel they maintain records for are assigned to NPGS. The 
Flight Surgeon also performs the medical review portion of 
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physical exeuns on all Navy and Marine Corps personnel. This 
was done so that in the future the Flight Surgeon could have 
access to the datcUoase, thus assisting that office's reporting 
and (juery needs. The Navy Medical Administrative Unit Datc±)ase 
System version l.O (NMAUDS 1.0) is written in dBASE IV version 
1.5. NMAUDS is implemented on a MS-DOS-based personnel 
computer with future intentions to implement the database onto 
a Local Area Network (LAN) with the dBASE IV LAN version. 

A. BACKGROUND 

NMAU previously had a database designed with dBASE III in 
1990 by the Officer In Charge (OIC) at the time. The dBASE 
III database system, in partial working order when this thesis 
began in January 1993, broke down and became incapable of 
performing any functions in April, 1993. Due to three facts 
the previous system had little use in the creation of NMAUDS 
1.0. First, some requirements have changed since it's 
creation and there were no considerations in the dBASE III 
database system for future requirements flexibility. Second, 
there was very little documentation and therefore the code was 
very difficult to analyze. Third, it appeared to have many 
bugs as it was unable to accomplish its originally designed 
tasks. 

NMAU presently maintains medical records for approximately 
two thousand Naval and Marine Corps personnel. The personnel 
encon^ass all possible Naval and Marine Corps career 
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descriptions and therefore have varying occupational health 
requirements. The challenging task of maintaining accurate 
readiness information is exacerbated by the following issues. 

The commands that are supported are scattered about the 
Monterey Peninsula and are often in no way affiliated with 
each other. Personnel rotate through in very large numbers. 
An average of approximately three hundred people arrive and 
depart in the Scune period of time four times a year during 
academic quarters at NPGS and DLI. NMAU is a detachment from 
the Directorate for Community and Occupational Health (DCOH) 
at the Naval Hospital Oakland (NHA). Consequently NMAU 
support resources are over one hundred miles away. Finally, 
they operate out of the Medical Health Clinic on the Presidio 
of Monterey which is an Army base without a Naval 
headquarters. 

Another unique characteristic of NMAU is that the bulk of 
the medical services were done, when this thesis began, by a 
civilian unit Primary Medical Care for the Uniformed Services 
(PRIMUS) based at the health clinic on the Presidio of 
Monterey. There is additional support from Silas B. Hayes 
Army Community Hospital on Fort Ord in Marina. Physical exams 
are conducted by PRIMUS with the exception of the medical 
review which is done by the Flight Surgeon. This arrangement 
changed beginning 01 August 1993 when the Army replaced PRIMUS 
with a detachment of doctors and medics from Silas B. Hayes. 


3 





There is one officer and six enlisted personnel (corpsroan) 
allotted to NMhU. They are currently understaffed by one 
corpsman. The unit's purpose is to ensure that personnel get 
their medical requirements completed and that their records 
are properly docximented. With eighteen hundred records to 
track, minimal support, a decentralized organizational 
structure, and a dynamic environment, the management challenge 
is noteworthy. This database system will enable NMAU to 
quickly list personnel deficiencies and status reports thereby 
saving countless work hours for the unit. 

B. CHAPTER DESCRIPTIONS 

Chapter II is a system analysis. The operating 
environment is studied by means of surveys followed by a 
specific diagraming process. A description of survey and 
diagraming methodologies are also provided. The chapter is 
concluded with requirements specifications as they pertain to 
data, reports, and hardware and software issues. 

Chapter III is a summary of the design process followed 
while developing NMAUDS. The chapter begins with a small 
discussion of database concepts and how they are related to 
this system. Entity relationship diagrams are defined and the 
models created for this project are addressed. The 
normalization process is reviewed with respect to this 
database system. The final section in this chapter provides 
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commentary of the data dictionary and its benefits to 
database system design. 

Chapter IV discusses the final phases involved with 
establishing a database system. These phases are the 
development portion of the process and they include 
programming, testing, and system implementation. Database 
security theory and how it applies to NMAUDS is discussed in 
the section following implementation and database maintenance 
issues concludes the chapter. 

Chapter V is a conclusion. This conclusion does a short 
summarization of the thesis and addresses future modifications 
to the system created. Also included are lessons learned with 
respect to requirements for database management systems and 
how they change. 

Appendices A-E supplement the previously described text. 
The appendices are; Data Flow Diagrams, Entity Relationship 
Diagrams, Data Dictionary, System Programs, and NMAUDS 1.0 
Users Manual respectively. 
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ZZ. SYSTEM AMALYSZS 


A. USER SURVEY 

1. Methodology 

Surveys with the users are essential. No system can 
be designed without first understanding the current process 
intended for improvement. Users are defined in a database 
system as "people who need information from the database to 
carry out their primary business responsibility." (Hansen, 
1992, p. 27) This includes everyone at the Navy Medical 
Administrative Unit (NMAU) in varying degrees. The primary 
questions one asks in the survey process are: "What are the 
functions and responsibilities of the organization? ...and... 
"What are the outputs and inputs?" (Whitten, 1989, p. 117) 
After this information is obtained determination of whether 
the process can benefit from a database system follows. If 
process improvement is possible the scheme for remodeling 
ensues. 

The process includes formal and informal surveys. 
Formal surveys include scheduled appointments with 
predetermined questions. Informal surveys consist of touring 
the environment and asking questions about what is seen and 
what is not understood. Informal surveys continue throughout 
the system development process. In the system analysis for 
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this thesis, formal surveys were conducted with senior and 
experienced personnel and informal surveys conducted included 
all personnel. 

2. Application 

The primary concern of the personnel surveyed was the 
accuracy of the data. NMAU must be able to rely on the 
database to supply accurate reports to their supporting 
commands. Many individuals are unaware of their occupational 
health requirements in the Navy and Marine Corps. Those who 
are aware are often delinquent in maintaining these medical 
requirements. As a result, the notification of personnel for 
medical actions due determine how proper medical readiness is 
maintained. Ease of data input and error checking therefore 
become one of the most critical areas in designing the 
application. 

Reporting requirements are basic. Reports about 
different medical deficiencies are supplied to the commands on 
a regular basis. There is, however, an additional necessity 
for flexibility in reporting. For instance, there exists a 
report that goes to various commands and curricular offices at 
NPGS which informs these units which personnel lack a current 
Physical Exam for the Personnel Fitness Test (PFT). The PFT, 
a semiannual requirement, contains no requirement for when 
execution of the PFT should occur. Hence, the report must be 






flexible enough to assist Individual c<xnmemds or curricular 
offices with the PFT report in any given month as requested. 

In addition to the many customized reports to various 
commands and curricular offices, reports must go to 
Directorate for Community and Occupational Health (DCOH) as 
well. These are known in Naval Medicine as "morbidity 
reports." A morbidity report and a productivity report have 
the same purpose. In other words, morbidity reports 
demonstrate what an occupational health unit accomplished over 
a period of time. For example, fulfilling monthly 
requirements to determine how many Yellow Fever Immunizations 
were given. Morbidity information is also comprised of ad hoc 
prospects. 

Another admini<5trative task that NMAU performs is 
tracking the number of people who arrive and depart each 
month. They are called "check-ins" and "check-outs" 
respectively. The previous database assisted this process and 
was invaluable to NMAU. Check-in and check-out statistics are 
necessary for Morbidity data as well. 

During the interview process there was reference to 
the possibility of NMAU getting a Navy wide database system 
that might assist NMAU and perform some of their requirements. 
This system's title is Surface Automated Medical System 
(SAMS). The possibi]ity of acquiring this asset was 
originally factored into future design considerations. 
However, later determination demonstrated SAMS use had fallen 
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short of NMAU's needs due to NMAU's unique situation 
previously discussed. 

Security is a concern because of the fact that NMAU 
must share the health clinic spaces with PRIMUS and other 
medical units assigned to the health clinic. No data on the 
system is classified. There is, however, a degree of 
sensitivity with personal medical information. Equally as 
important is the desire to protect the data from malicious or 
unintentional corruption. 

A final unusual factor taken into account involved the 
future of NMAU's responsibilities. As a result of down sizing 
and restructuring in the military, the fate of DLI, Silas B. 
Hayes and, in fact, any military unit is subject to change. 
There are many possible scenarios for these military units. 
The responsibilities of NMAU may increase or decrease. 
Presently, the most likely result is that NMAU's 
responsibilities will either increase or remain the same. 

Most of the Flight Surgeon's requirements overlapped 
those at NMAU. In addition to those requirements, the Flight 
Surgeon had two other requirements in which a database would 
assist him. The first was more data requirements, including 
more immunizations, dental readiness information, rare billet 
designations called special programs, HIV testing and security 
clearance. The second revolved around the ad hoc nature of 
the job. The staff office at NPGS generated non-standard 
medical readiness information. 
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B. DATA FLOW DIAGRAMS 
1. Methodology 

Before designing a database it is necessary to 

accumulate the information from the surveys to study the data 

flows and gain an initial profile. From this research various 

diagrcuns are constructed in order to assist the design 

process. These are Data Flow Diagrams (DFDs). 

Data Plow Diagrams are not flow charts. They do not 
explicitly show flow of data through a system. They only 
show flow of data, storage of data and the processes that 
respond to and change data. (Whitten, 1989, p. 14) 

This is known as the logical schema of a system. The logical 

data flow eliminates unnecessary specifics such as who does a 

task and how a task gets done. The logical schema is only 

involved with data. This logical view of the system is 

derived from the physical data flow which was analyzed and 

determined as a result of the survey process (Appendix A). 

There are three types of logical DFDs used (Appendix 
A includes a DFD symbols recognition key). The First is the 
Context Diagram. The Context Diagram portrays the system as 
one process and that one process' inputs and outputs. The 
Context Diagram also identifies the External Entities. 
External Entities are people, organizations or other systems 
which interact with the system being analyzed but fall outside 
the boundaries of the system identified in the Context 
Diagram. The second diagram is the Systems Diagram. This 
diagram identifies the subsystems and primary data stores. 
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They are depicted with their inputs and outputs as well. 
Finally there are Lower Level or n-Level Diagrams. Lower 
Level Diagrams represent the processes and data stores within 
a subsystem. This method of presenting more detail from one 
diagreun to the next is called exploding. Each process can 
explore further into Lower Level Diagreuns. 

2. implication 

The Context Diagrcua (Appendix A) for this system 
exhibits the primary functions of NMAU. The inputs are 
personnel medical records and requests for services. Three 
external entities, personnel or patients, supported units, and 
NHO receive the outputs. 

The Systems Diagram (Appendix A) explodes the medical 
and occupational health services into three process and four 
data stores. The processes are Schedule Medical Service, NMAU 
Appointment and Flight Surgeon Appointment. The Data stores 
are Medical Records, Physical Exams Log, Immunization Log, and 
Flight Surgeon's Log. In order to determine the validity of 
a new system the new system should be compared to an accurate 
current system. Accordingly, the dBASE III has been taken out 
of the system because it became dysfunctional during the 
design process. Without the previous database NMAU's ability 
to complete their mission is greatly reduced. However, the 
Systems Diagram with dBASE III is depicted in Appendix A. 
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The only process exploded further is the NMAU 
appointments process (Appendix A) . This is done to present 
greater detail in the report generation processes. New 
processes in this diagram are File Record, Provide Medical 
Services, Records Review and Create NMAU Reports. 

C. REQUIREMENTS SPECIFICATION 
1. Data 

Identifying the data to be accumulated in the database 
was straight forward. Interviews were the primary determinant 
of essential data. However, often there are conditions in 
which the designer may anticipate how the system can benefit 
the user when the user can not. Therefore, some data fields, 
although not directly requested through interview, become a 
part of the design if acknowledged by the user as a future 
consideration. Notwithstanding, system designers must be 
careful not to over do their design. 

The Data Dictionary (appendix C) is comprised of all 
the data fields required. Chapter III examines data 
dictionary methodology. The fundamental categories of data 
are patient personal information, medical history, and command 
information. The Flight surgeon's desirt.3 increased the 
niomber of fields in each category. 
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2. Reports 


The reports can be broken into three classifications. 
They are Command Notification Reports, Internal Administrative 
Reports and DCOH Reports. 

Command Notification Reports inform the supported 
units of individuals who are due or delinquent in fulfilling 
their medical and occupational health requirements. They 
include readiness reports and Personnel Lacking Current 
Physical Exeuns for the PFT or PPT reports. These reports have 
a few different variations depending on the period and 
parameters of the specific report. 

Internal Administrative Reports are for house keeping 
within NMAU. They include check-in verification, check-out 
verification and a shelf list. Check-in verification includes 
verifying check-in data received from PSD. Check-out 
verification is necessary for preparation of personnel 
transfers but its primary use is a cross reference prior to 
removing data from the database or whatever mechanism is in 
use for tracking readiness. The shelf list displays the 
records in the sequence in which they are stored on the shelf. 
This is very useful for finding records or for the mandatory 
annual record review. The records are shelved by the last 
four digits of the social security number followed by the 
middle two digits succeeded by the first three digits. The 
Terminal Digit Filing System is the label given to this filing 
technique. 
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DCOH Reports deal primarily with morbidity. The 
necessary information is totaled on the dated}ase and 
transferred to an official report sent to NHO. The dated>ase 
may be authorized to generate this report in the future. This 
can be dealt with in a follow-on thesis by performing an 
upgrade of this application. 

3. Hardware and Software 

Often in systems design a portion of the design 
process includes selecting the hardware that best satisfies 
the specifications while staying within a budget. Sometimes 
the designer must design with hardware decisions previously 
determined. The latter was the case at NMAU. NMAU had an IBM 
compatible Zenith 286 as the only available asset for a 
datcUsase. They were requesting new and more powerful IBM 
compatible 386 or 486 computers v-. r'-; LAN cc*pcd5ilities. The 
decision to request these computers had already been 
determined and the approval of the request was pending when 
this thesis began. 

As a result, hardware specifications were previously 
determined with a worst case scenario of designing a database 
to run off the old Zenith 286. The best situation to hope for 
was an approval of The IBM con^atible 486. The decision made 
by DCOH in July, 1993 furnished NMAU with an Infiniti 486 IBM 
conqpatible conputer. 


14 





The software requirements were quickly narrowed down 
to two different Fourth Generation Languages {4GLs). They 
were dBASE IV and Paradox. This decision resulted from the 
fact that at the time the Navy had site licenses for both of 
those packages. Therefore, they both were within budgetary 
constraints. 

After review, Paradox emerged as the better relational 
language. It was designed for Structured Query Language (SQL) 
a powerful query tool. On the other hand, dBASE IV's 
strengths were its ease of use. The decision to use dBASE IV 
was a result of that fact. Furthermore, dBASE IV does have 
relational capabilities. 

NMAU's mission was driven more heavily by periodic 
scheduled reports. Their need for ad hoc inquires was minimal 
and the reduced relational potential of dBASE IV surpassed the 
requirement for ease of use. NMAU's personnel turn over every 
two to three years. The individuals assigned to NMAU have 
diverse computer experience but the norm is the more 
relatively inexperienced individual. Ease of use and wise 
ergonomics with respect to data entry are the paramount 
concerns since both software packages are capable of 
fulfilling all other requirements. 

The Flight Surgeon's requirements are, in fact, 
primarily ad hoc driven. The ability to connect the Flight 
Surgeon into this dateUDase goes beyond the scope of this 
thesis and is an available topic for possible follow on thesis 
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work. Nevertheless, with respect to design the Flight 
Surgeon's requirements are analyzed. Two reasons guided this 
decision. First, if NMAU's responsibilities increase it is 
possible that their requirements would overlap further upon 
those of the Flight Surgeons. Additionally, dBASE IV version 
1.5 has SQL capability and this application could be converted 
for the Flight Surgeon's use if desired. 
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Ill. DATABASE DESIGN 


A. DATABASE CONCEPTS 

A database is an integrated collection of data, stored 
with a minimum of redundancy and structured such that 
multiple applications can share the data. Ideally, the 
data is structured independent of the programs that use 
it. This allows the structure to be changed without having 
to change the existing programs that use the data. 
(Whitten, 1989, p. 65) 

Or more simply, "A database ... is a collection of 
interrelated, shared, and controlled data." (Hansen, 1992, p. 
33) 

Databases can be centralized, one control processing unit 
(CPU) utilized in one geographic area, or distributed, many 
CPUs in a single geographic area or one or more CPUs employed 
in more than one geographic area. The term geographic in this 
context varies in definition. For the purposes of this thesis 
a geographic location will mean the same floor of the seune 
building. In which case Navy Medical Administrative Unit 
database system (NMAUDS 1.0) will be implemented on a 
centralized system which will be modified, in fiscal year 
1994, to a distributed system on a Local Area Network (LAN) 
and through thesis follow on may be distributed further 
geographically. 

The conponents of a database system do not consist of 
hardware and software alone. Users, procedures, and data 
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stores are equally Inportant cooqponents. These conponents 
combined become an input-process-output apparatus. Better 
said, the system takes in information, processes it and 
produces useful information or intelligence. 

B. ENTITY-RELATIONSHIP DIAGRAM 
1. Methodology 

The entity relationship diagrams (ERDs) assist in the 
system analysis as well as design. This model's most useful 
attribute is that it exhibits the relationships between the 
objects that are in a system. Specifically those objects 
about which ERDs store data. ERDs are most useful when 
developing a relational database system in which there is 
routine query needs. 

The ERDs provide a more detailed excunination of the 
data stores in the Data Flow Diagrams (DFDs). A DFD presents 
data in its dynamic stages. The data stores in DFDs are the 
static pictures of data between their metamorphosis. The ERD 
presents a detailed analysis of the data stores thus depicting 
data at rest. 

Entity relationship diagrams do not depict flow or 
processing. They should not be read like data flow 
diagrams or flow charts. Entity relationship diagrams 
depict data at rest, data being stored. They also do not 
irt 5 )ly how data is implemented, created, modified, used or 
deleted. (Whitten, 1989, pp. 229-230) 

ERDs consist of three components entities, 
relationships and attributes. These components are 
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illustrated on the diagram as squares, dicunonds and non-square 
rectangles respectively (Appendix B) . The names given to 
Entities are nouns. Therefore, entities are persons, places 
or things. Things are more often referred to as objects but 
they also can be an occurrence known as an event. Some 
excunples are patient, command, and medical record. An 
immunization is an example of an event. 

Relationships have verb titles. Relationships 
associate entities with each other. These relationships fall 
into three categories: one-to-one, one-to-many and many-to- 
many. "Every patient has one medical record," is an example 
of a relationship between a patient and that patient's medical 
record. This is a one-to-one relationship in which "Has" is 
the name of the relationship. 

Entities are the items which tend to have data stored 
about them. Descriptive elements that describe entities are 
attributes. Attributes are also known as data elements. 
Relationships can have attributes but on the ERDs of NMAU this 
does not occur. Fundcunentally, the attribute-entity join is 
a relationship but the relationship is so elementary that it 
is more easily described as an attribute. "A medical record 
maintains yellow fever shot dates," is an example of an 
entity-attribute relationship. The relationship "maintains" 
and the entity "yellow fever shot date" possess no other 
pertinent data. As a result, it is better to combine the two 
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and designate "yellow fever shot date" as an attribute of 
medical record. 


Each entity must have an attribute which uniquely 
identifies every entity instance. This attribute is commonly 
called the "key" attribute. The key attribute has an 
important function in the data dictionary tables discussed in 
section D. Some attributes may not have a value for each 
entity, these attribute instances are called null values. 

2. Application 

The ERD assembled for NMAU (Appendix B) deals 
primarily with personnel information. Medical Provider, 
Command, and Command-Division (departments, curriculiims, or 
divisions) are three entities in the model whose data elements 
are presented predominately for future requirements. The 
remairiii.v entities Patient, Medical History, Shot Record, 
Special Programs, and Dental Records have attributes which are 
necessary for current requirements. All eight entities are 
displayed with their attributes in Appendix B. The key 
attribute for all of these entities is Social Security Number 
(SSN) thus creating a data redundancy with the SSN element. 
These five entities can be combined into one entity but that 
picture yields less information about the data. 

SSN is the key to the medical personnel entity as 
well. This would not be combined with the other entities 
whose key is SSN because there would be many null values since 
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only ten of the two thousand personnel in the database work at 
NMAU. In the future the dataOsase system can adopt this entity 
and its attributes to assist training and qualifications 
requirements of corpsmen. 

Command Name is the key to the command entity. Unit 
Identification Code (UIC) and Curriculum Naune are combined 
together to uniquely identify the Command Division entity. 
This is known as a combination or composite key. The Command 
and Command-Division entities, if implemented into the 
database system, will assist the flight surgeon's 
requirements. Within these two entities are the names of 
commanding officers and department/division officers. This 
induces a data redundancy which creates a tradeoff decision 
between the reward from increased information and the negative 
ramifications associated with this data redundancy. If 
implemented in an update of NMAUDS 1.0 this tradeoff will be 
a consideration. 

A final point of interest for updates to NMAUDS is the 
possible addition of an entity called Female Tests. This 
entity comprises of the attributes Papanicolaou (PAP) smear 
and Mammogram. These tests are only performed on women. 
Since women incorporate far less than 50% of the records, if 
implemented, there would result an excess of null values. A 
relationship between Medical History and Female Tests 
(Appendix B) exists and can be considered in system updates if 
NMAU expands their readiness requirements. SSN would become 
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a redundant data item again and the tradeoff between reduced 
null values and increased data redundancy must be examined 
further prior to implementation. 

C. NORMALIZATION 

The normalization process ensures data is stored in a 
manner that minimizes data redundancy and data anomalies while 
maintaining data integrity. Data anomalies occur when deleted 
data precipitates an additional unintended data loss or when 
updated data does not consequently update related data. These 
anomalies are known as deletion anomalies and update anomalies 
respectively. Improved data integrity, or consistency of data, 
as well as reduced data redundancy facilitate the elimination 
of anomalies. 

The normalization process consists of a series of rules 
which refine the data elements for database implementation. 
Each stage of the normalization process produces a data set in 
a form. As a result. First Normal Form (INF) is the name of 
the first revision. Second Normal Form {2NF) the second, and 
the names of the remainder continue accordingly except for a 
couple of exceptions. 

Normalization occurs concurrently with the creation of 
ERDs as the two procedures compliment each other. Analysis of 
entities and their attributes, as groups of data, is the 
method for viewing data. Every non-key attribute in an entity 
can be determined by the key. For instance, SSN determines 
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the value for last name, first name, sex and every other 
attribute in the patient entity. These correlations are 
called a functional dependencies or in other words the 
attribute last name is functionally dependent upon SSN. 
Functional dependency is an important concept to understand in 
normalization. 

First Normal Form eliminates all data attributes which can 
have more than one occurrence for each entity. For example, 
in the entity Medical History the attribute Special Progrcun 
might have two values for a single entity instance. That is, 
it is possible for personnel to be members of more than one 
special prograun. Therefore, in order to place Medical History 
into INF each individual program is formulated into an 
attribute. 

Second Normal Form requires that the entity satisfy the 
criteria for INF and that no other data attribute in the 
entity be functionally dependent upon a portion of a composite 
key. Therefore, in the development of the Command-Division 
entity no attribute may be functionally dependent upon 
curriculum or UIC alone. 

Third Normal Form {3NF) requires that the entity satisfy 
the criteria for 2NF and that no non-key attribute 
functionally determines another non-key attribute. Several 
data elements were eliminated as a result of this condition. 
Last physical exam in combination with flight and date of 
birth determine next physical exam. Consequently, next 









physical exam was eliminated a3 an attribute. The previous 
example Is one of a few cases which once corrected condenses 
the data entitles into 3NF. 

Boyce-Codd Normal Form (BCNF) is satisfied if every 
attribute that functionally determines any other attribute Is 
a key. When satisfied this form acconpllshes 2NF and 3NF as 
well. If data is already in 3NF the only condition remaining 
to excunlne is whether any portion of a combination key can be 
determined by a non-key. This will need further consideration 
if the Command-Division entity is adopted for use in an 
upgrade. 

Fourth Normal Form (4NF) requires that entities satisfy 
the criteria for 3NF and that multivalued dependencies be 
eliminated. A multivalued dependency exists when there are 
more than two attributes in an entity, at least one attribute 
is multivalued, and the values of two attributes determine a 
third. The present version of NMAUDS does not have any 
multivalued dependencies. 

Among others the remaining forms include Fifth Normal Form 
and Domain/Key Normal Form. These remaining forms consist of 
abstract concepts and would not divulge any additional 
weaknesses that would effect NMAUDS 1.0. 

D. DATA DICTIONARY 

Expansion, amalcsimation with additional applications, and 
evolution are fundamental concerns in database system design. 


24 






In order to enable successful future modifications, the Data 
Dictionary was created. A data dictionary provides 
definitions of all the data items in the database. 
Definitions are organized in data dictionary toUsles. Data 
items include fields, records, and files. Files associated by 
file type are also assembled into tables along with a 
description. 

In the past, organizations recognized that data was their 
most precious and uncontrolled resource. As databases and 
database systems proliferate data administration became a 
serious problem. (Whitten, 1989, p. 354) The creation of the 
data dictionary concept standardized data and data file 
definitions in an effort to correct data administration 
problems. The data dictionary now provides a reference to 
diminish data redundancy and assure data integrity. 

A data dictionary is different from a project dictionary. 
Project dictionaries are directories of data elements, data 
flows, system requirements, system inputs and system outputs 
created during the design of a large database system. The 
project dictionary's function is to assist with the management 
of massive amounts of new definitions that can overwhelm 
designers if not organized. A project dictionary was not done 
for the NMAU system (NMAUDS l.O) because of the relatively 
small size of the system. The effort and time invested in a 
project dictionary would not have yielded an equivalent 
payoff. 
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The data dictionaxy for NMAUDS Is displayed in i^pendlx C. 
The Patient, Medical History, Shot Record, Special Programs, 
and Dental Record entitles and relationships are organized 
Into one data file for the active database system. The 
attributes which serve current requirements are maintained In 
this data file (Appendix C) . Also Included are some 
additional attributes anticipated for requirements In the near 
future. These attributes Include Flu shot. Unit 
Identification Code (UIC), and Human Immunodeficiency Virus 
(HIV) test. 

Possible future dataibase file structures are depicted In 
the data dictionary as well. Currently, the requirement for 
ease of data entry has driven the decision to Incorporate all 
of the data elements Into one file. This Is a result of the 
fact that dBASE IV data entry forms associate directly to a 
single database file. If the entities were grouped Into two 
or more files than as many data entry forms would necessitate, 
thus reducing the efficiency of data entry. 
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IV. DATABASE KAMAOBKBirr STSTBK DEVELOPMENT 


A. PROGRAMMING 

dBASE IV version 1.5 Is a fourth generation language (46L) 
and as a result, much of the prograinning is done by the 
application through standard formats. This proved vezy 
helpful with application, menu, indexing and query progreuns. 
However, some of the requirements for reports made it 
difficult to use the report forms in dBASE IV. Flexibility is 
often lost when using standard progreun forms. As a result, a 
good deal of time was spent learning the dBASE IV prograunming 
language, a third generation language (3GL), which is also 
available in dBASE IV. 

All but two reports, "NPGS Personnel Without a Curriculum 
or Department Code on File at Medical" and "Records List in 
Shelf Order", are programmed in the dBASE IV 36L. Programming 
concepts taught in ADA at the Naval Postgraduate School (NPGS) 
and in Fortran at the Naval Academy were the foundation of 
knowledge used. Additionally, Progreunming in dBASE IV, [Ref 
3] , aided the progreunming process. System programs can be 
found in Appendix D. 

Most of the procedures creating reports query the operator 
for report parameters. While designing operator inquiries, 
safeguards were implemented to prevent errors. Almost every 
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query Is in a verification loop, a multiple choice entry 
format, or a unsatisfactory data entry loop. Many are 
protected by more than one of the previously stated 
precautions. 

B. TESTING 

Testing is "the process of exercising or evaluating a 
system ... to verify that it satisfies specified requirements 
or to identify differences between expected and actual 
results." (Mynatt, 1990, p. 275) The testing phase of 
development overlaps substantially with the programming phase. 

There are two principles of testing that were important to 
the testing strategy of NMAUDS. First, the purpose of the 
test plan is to uncover errors, not to demonstrate that the 
program can work. Second, one must recognize that it is 
impossible to test for all errors as there are an infinite 
niimber of possible data entries. Ergo, a test plan attempts 
to investigate as much of the progrcun as possible with as 
little data as is reasonable. 

Testing NMAUDS was done in the small and in the large. 
Testing in the small implies testing individual modules 
without respect to how they interact with other modules. The 
smaller modules were short progreuns, procedures, and 
functions. Testing in the large concentrates on passing test 
results between modules. Testing in the large included 
testing on report programs and applications. 
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Black-box testing was done primarily in the small but was 
also performed in the large, while white-box testing was done 
solely in the large. White-box testing ensures every path 
within program logic is traveled. A Logic-Flow Diagram is 
constructed so that all passages through the program logic is 
illustrated. Figure 1 on the following page is an example of 
a Logic-Flow Diagrcim used in the test plan for the program 
Readins2 (Appendix D). Two passes through the program will 
cover all modules at least once (a-b-c-d-e-f-g-h-j-k and a-c- 
d-e-g-h-i-a-c-d-e-g-h-j-1) . 

Black-box tests are created using the technique of 
equivalence partitioning. To use equivalence 
partitioning, every input condition specified is divided 
into a number of equivalence classes. Each equivalence 
class consists of a class or set of data items all of 
which are similar to each other on some relevant 
dimension. To create test cases, test data are chosen 
that include at least one piece of data from each 
equivalence class. When these test cases are executed, it 
is assumed that, if the module performs correctly on the 
test item from a particular equivalence class, the module 
will perform correctly for any other item from the same 
equivalence class. (Mynatt, 1990, p. 292) 

For example a black-box test on the module which 
establishes the day value of the readiness report, a-b-c in 
Figure 1, would create three equivalence classes. The range 
for the value is one to thirty-one inclusive. Therefore the 
equivalence classes are: 

1. less than one 

2. one through thirty-one 

3. greater than thirty-one 
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a. daynalu* 

b. inoorraet day valua 

c. comet day aahM 

d. monlit vatua (rnuMaia eboiea) 
a. yaatvabta 

I. Incomcl yaarwhia 
0. eomctyaaraalua 
h. datavahia 
I. incomeldalaMalua 

j. eoractdayvaliia 

k. prtnt lapo rt 

l. putraporttodtatciaan 







The final aspect of testing for NMAUDS occurred in 
implementation. The datcibase system in its operating 
environment often gets tested in ways not thought of in the 
test plan. Additionally, the case in which test return values 
equal anticipated values but the anticipated values are 
erroneous, can only be discovered external to the test plan. 
Although not preferred, implementation will imminently 
discover some errors, preferably before acceptance. Only 
minor problems were discovered during the implementation of 
NMAUDS. 

C. SYSTEM IMPLEMENTATION 

NMAUDS was implemented in two stages. The first stage 
entailed of database file structure and data entry forms. 
This was accomplished in order to permit data entry to begin 
prior to the completion of NMAUDS. The NMAU mission was 
beginning to suffer greatly due to the total loss of their 
dBASE III system. NMAU estimated that they would need at 
least four weeks for data entry and verification. As a 
result, while the remainder of the system was still in 
development data entry for the database began. Implementation 
of the first portion of the system was done on the IBM 
compatible Zenith 286. 

The second stage involved a more traditional system 
implementation. Final testing of the system was performed in 
these operations as was alluded to in the previous section. 
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The conqplete process included training NMAU personnel how to 
use the system, generating all reports for random cross 
checking of data produced with personnel medical records, and 
performing all maintenance and update functions of the 
datoUsase. The entire design was implemented six weeks after 
the initial implementation phase on an IBM compatible Infiniti 
486. 

There were minor corrections to be made in both phases of 
implementation. Neither stage manifested any serious problems 
hence, the implementation was deemed a success. 

D. SECURITY 

Computer and database system security is not limited to 
preventing access to unauthorized users. The following is a 
list of requirements for security of database systems created 
by Charles P. Pfleeger [Ref. 5:p. 304]. 

1. Physical database integrity 

2. Logical database integrity 

3. Element integrity 

4. Auditability 

5. User authentication 

6. Access control 

7. Availability 

The contents of Pfleeger's list consists of those security 
concerns confronted in the design of NMAUDS. The database 
administrator is the person who monitors these security 
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issues. At NMAU the Officer in Charge (OIC) has the position 
of database administrator. 

Natural disasters, power failures, intentional physical 
destruction, and unintentional physical damage such as 
dropping a disk pack are examples of physical database 
security concerns. Some of these events can not be prevented 
and as a result, easy back up procedures and back up reminders 
are installed in the application. The database administrator 
has been advised to make frequent backup copies of the 
database to a separate storage medium a standard operating 
procedure (SOP). The database administrator has also been 
encouraged to maintain backup copies of the system as well. 
Additional SOP suggestions to sustain physical security 
include: keeping food and beverages away from the computer, 
prohibition of smoking in the computer room, and keeping the 
computer behind a locked door when unattended. 

Logical database integrity means the elimination of update 
and deletion anomalies. This is accomplished in part by dBASE 
IV design and buttressed further by the normalization process. 

Protecting element integrity was performed in part by the 
desire to create an easy and isolated data entry environment. 
The dBASE IV data entry form further assists this concern 
through default values, multiple choice data entry, and 
restriction of undesirable characters within specified fields. 
Examples include default field entry of the current date for 
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the check-in field, multiple choice options for consnand, and 
restricting all characters other than numbers from the SSN. 

Auditability, the ability to track file and record 
accesses, can be useful in recreating a sequence of events for 
determining security transgressions. This capability is not 
offered with dBASE IV. Presently, the cost of a system that 
would provide this capability would exceed the benefits gained 
by one. Thus, the accountability security measure 
consequently received no further attention. 

The final three security interests are dealt with using 
the dBASE IV protect system. This protect system offers three 
levels of security log-in, file and field access, and data 
encryption. User authentication is satisfied with the protect 
system. The QIC has been briefed separately and Navy Medical 
Administrative Unit ''erLonn'-'.'’ have been instructed on 
proper password procedures. Included in, but not inclusive to 
the instruction ware two particular points. First, users were 
told to avoid short length passwords and words that identify 
or associate users to their passwords when selecting a 
password. Second, they were also encouraged to avoid commonly 
used password storage methods which do not properly safeguard 
passwords. 

Access control protection is offered through dBASE IV 
field and file access. Field access was not implemented 
because individuals with the lowest level of access privileges 
are the data entry personnel and they would need access to all 
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fields for data entry. File access levels fall into five 
levels as seen in the matrix in Figure 2 below. 


Access Privilege Levels 


Access 


Level 

*1 

Level 

«2 

Level 

«3 

Level 

«4 

Level 

«5 

Delete 

Yes 

No 

No 

No 

No 

Privileaes 

Extend 

Yes 

Yes 

No 

No 

No 

Update 

Yes 

Yes 

Yes 

No 

No 

Read 

Yes 

Yes 

Yes 

Yes 

No 


Security Access Matrix 


(Figure 2) 

The privileges associated with each level are on the 
vertical axis of the matrix. Availability will be directly 
controlled through the security levels depicted. The loss of 
necessary availability is another security issue in this final 
security list item. However, this will not be a factor until 
further applications are added to the system or new systems 
need to access the database. 

Data encryption was deemed unnecessary due to the fact 
that all data items were unclassified. However, due to the 
private nature of most of the data, all of the data is 
considered sensitive. With all data elements designated 


sensitive, security is strengthened but flexibility is lost. 
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If another dated)ase management system design aspires to get 
access to the NMAUDS database, the higher level of security on 
NMAUDS would make the task more difficult. Finally, the OIC 
and NMAU personnel were instructed on the negative 
repercussions that can result from using unnecessary computer 
disks such as games and personnel text items on the same 
computer disk that the datcd^ase and database system reside on. 

E. MAINTENANCE 

Maintenance is divided into four classifications: problem 
resolution, system modification, system expansion, and system 
upgrade or re-write. The last category is a combination of 
the first three. Problem resolution, if the system is tested 
and implemented properly, will account for the least cunount of 
the total maintenance effort. System modification and system 
expansion will involve most of the maintenance labor, with 
estimates ranging between 70 and 85 percent. 

NMAUDS' rigid design makes data input easy and system 
operation less intimidating for cyperphobic individuals. The 
tradeoff is that changes to, or maintenance of, the system is 
less flexible. Several reports, programs, and data elements 
of possible future requirements are installed in NMAUDS to 
avoid these maintenance efforts. Nonetheless, maintenance of 
some sort is inevitable as "every user's environment changes 
over time. The only difference is the rate of change. As 
change occurs, so do user requirements, and with change in 
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user requirements comes maintenance of the existing system." 
(Inmon, 1983, p. 33) Effective program documentation and a 
thorough data dictionary are instituted in NMAUDS to assist 
these future projects. 
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V. CONCLUSIONS 


Design, development and inclement at ion of the Navy Medical 
Administrative Unit Database System (NMAUDS 1.0) is the result 
of this thesis. The NMAUDS system provides the Navy Medical 
Administrative Unit (NMAU) with information which assists 
their primary functions: maintaining occupational health data 
and ensuring that the commands they support sustain high 
levels of medical readiness. NMAUDS supports this mission by 
accomplishing medical record maintenance and medical and 
occupational health status reports in a efficient and 
effective manner. 

During the period of time NMAU was without automated 
support their mission co-pctbil ity suffered. Once implemented, 
the system was immediately put to use. Future updates of the 
system are a possibility as medical requirements change or as 
the areas of responsibility change for NMAU. 

Research of the Flight Surgeon's requirements was an 
additional focus of this thesis. A potential upgrade of this 
database system or a new database system sharing the NMAUDS 
database are plausible follow on projects as well. The data 
dictionary supplies valucdjle information to any future 
undertakings which expand or modify the system. 

The tools provided in dBASE IV were useful and time 
saving. This fact should be true for any upgrades to NMAUDS 
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1.0. The manuals provided with dBASE IV were also quite 
useful especially in the development phase. 

The commonly noted problem of changing requirements was a 
factor throughout the course of this thesis. Lessons learned 
while dealing with this certainty are worth noting. 
Requirements changing were due to four circumstances; the 
users' environment changes, the users recognize after 
demonstration of the technology new uses for the system, the 
users fails to disclose all of their own requirements to the 
designer, and the designer misinterprets the users' 
explanation of their requirements. Only the first item on 
this list can not be avoided. The latter three items on the 
list, although not completely avoidable, can be minimized with 
good communication with the users. In this thesis 
communication flow was sporadic and requirements changes 
resulted. In retrospect, periodically scheduled, possibly 
biweekly, progress meetings would have been advantageous. 


39 






APPKMDZZ Ax DATA FLOW DZAOSAMS 


PPPAYMBOLKEY 


EXTERNAL 

ENTITY 



DATA 

STORE 


daIa 

FLOW 

i 


40 








cowrexTo^oiuM 



41 






















8Y8TEM8 DIAGRAM 



43 










44 

















PERSONNEL 






REQUEST 
- FOR . 
SERVICE 


INFORM 

PERSONNEL 

ABOUT 

APPOINTMENT 


4.1 


SCHEDULE 

MEDICAL 

SERVICE 


APPOINTMENT 

DATA 



/ 



MMUM- 


PHVaCAL 


ZAT10N 

LOO 


LOG 


45 







APPENDIX Bt XHTITY RBLATIONSHIP DZAGBAMS 


Siiittf Rii««on>Wp Diwrm Kmv 


ENTTTY 


ATnOBUTE 




46 











47 

















48 














49 



















50 















51 





















52 


















53 













54 













55 










56 









APPENDIX Cl DATA DICTIONARY 


A. TABLE It DATA FILES 

FILE NAME TYPE DESCRIPTION 

NEW_DATA.DBF Data Attributes about personnel and their 

medical record 


POSSIBLE FUTURE DATA FILES 


MED_HIST.DBF 
PATIENT.DBF 
CMND_DIV.DBF 

COMMAND.DBF 
DEN_HIST.DBF 
MED PROV.DBF 


DATA Attributes pertaining to an 
individuals medical record 

DATA Pertinent attributes cd>out an 
individual 

DATA Pertinent attributes about 
departments, divisions, or 
curricular offices (which to use 
will be driven by requirements) 

DATA Pertinent attributes about supported 
commands 

DATA Attributes about personnel dental 
records 

DATA Attribute which assist with NMAU 
personnel administrative and 
training requirements 
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B. TBBLB 2t 

1IBN_DATA. 

DBF 


ELEMENT 

TYPE 

WIDTH 

DESCRIPTION 

SSNO 

Character 

11 

Social Security Number 

LASTNAMB 

Character 

20 

Last name of person 

FIRSTNAME 

Character 

12 

First name of person 

INITIAL 

Character 

1 

Middle initial of person 

RANK 

Character 

3 

Generic military rank, I.E. 
ensign or 1ST LT « "O-l" 

SERVICE 

Character 

4 

Military service USN or USMC 

COMMAND 

Character 

4 

Command name abbreviation 

CHECKOUT 

Date 

8 

Date a person will checkout of 
his/her current command 

PHYSICAL 

Date 

8 

Date last physical exam was 
completed. 

BLOOD 

Character 

3 

Blood type, "Due" is the value 
for unknown. 

DOB 

Date 

8 

Date of birth of the person 

PPD 

Date 

8 

Date the PPD immunization was 
given, ll/ll/ll is entered for 
people who are allergic 

YELLOWFEV 

Date 

8 

Date the yellow fever 
immunization was given, 
ll/ll/ll is entered for people 
who are allergic 

TETANUS 

Date 

8 

Date the tetanus immunization 
was given, ll/ll/ll is entered 
for people who are allergic 

TYPHOID 

Date 

8 

Date the typhoid immunization 
was given, ll/ll/ll is entered 
for people who are allergic 

BSC 

Logical 

1 

.T. if the typhoid basic series 
is complete otherwise .F. 

AUDIO 

Logical 

1 

.T. if an audiogram was 
performed during the last 
physical exam otherwise .F. 

HIV 

Date 

8 

Date of personnel's last HIV 
test. 
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B. TABLE 2: 

NEN_DATA. 

DBF continued 

ELEMENT 

TVPB 

WIDTH 

DESCRIPTION 

G6PD 

Character 

6 

Glucose six phosphate 
dehydrogenase enzyme test; 
"Normal" if present, "Defcnt" if 
not present, "Due" if not 
performed 

SICKLECELL 

Character 

3 

Sickle cell test; "POS" if the 
trait is present, "NEG" if the 
normal, "Due" if not performed 

FLU 

Logical 

1 

.T. if a influenza shot was 
given otherwise .P. 

POX 

Logical 

1 

.T. if the smallpox immunization 
was given otherwise .F. 

POL 

Logical 

1 

•T. if the polio immunization 
was given otherwise .F. 

FLIGHT 

Logical 

1 

.T. if person is in a flight 
status otherwise .F. 

RAD 

Logical 

1 

.T. if person is in a radiation 
program otherwise .F. 

ASB 

Logical 

1 

.T. if person is in an asbestos 
program otherwise .F. 

RES 

Logical 

1 

.T. if person is in a respirator 
program otherwise .F. 

DIV 

Logical 

1 

.T. if person is in a underwater 
diver program otherwise .F. 

HAL 

Logical 

1 

•T. if person is in a high 
altitude low opening program 
otherwise .F. 

NONION_RAD 

Logical 

1 

.T. if person is in a non¬ 
ionizing radiation program 
otherwise .F. 

CURRIC_DIV 

Character 

2 

A code which unicpaely identifies 
a curriculum or a division 
within a command 

UIC 

Character 

5 

Unit identification code, there 
can be more than one per command 

CHECKIN 

Date 

8 

Date person checked into NMAU 
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C. TABLS 

3t II1D_HIST. 

.DBF 


BLEMENT 

TYPE 

WIDTH 

DESCRIPTION 

SSNO 

Character 

11 

Social Security Number 

PHYSICAL 

Date 

8 

Date last physical exam was 
completed. 

BLOOD 

Character 

3 

Blood type, "Due" is the 
value for unknown. 

PPD 

Date 

8 

Date the PPD immunization 
was given, ll/ll/ll is 
entered for people who are 
allergic 

YELLOWFEV 

Date 

8 

Date the yellow fever 
immunization was given, 
11/11/11 is entered for 
people who are allergic 

TETANUS 

Date 

8 

Date the tetanus 
immunization was given, 
11/11/11 is entered for 
people who are allergic 

TYPHOID 

Date 

8 

Date the typhoid 
immunization was given, 
11/11/11 is entered for 
people who are allergic 

BSC 

Logical 

1 

.T. if the typhoid basic 
series is complete otherwise 
.F. 

AUDIO 

Logical 

1 

.T. if an audiogram was 
performed during the last 
physical exam otherwise .F. 

HIV 

Date 

8 

Date of personnel's last HIV 
test 

CHOL 

Date 

8 

Date of personnel's last 
cholesterol test 
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C. TABLE 3i MED HIST continued 


ELEMENT 

TY;g 

WIDTH 

DESCRIPTION 

G6PD 

Character 

6 

Glucose six phosphate 
dehydrogenase enzyme test; 
"Normal" if present, "Defcnt" if 
not present, "Due" if not 
performed 

SICKLECELL 

Character 

3 

Sickle cell test; "+" if the 
trait is present, if the 

normal, "Due" if not performed 

FLU 

Logical 

1 

•T. if a influenza shot was 
given otherwise .F. 

POX 

Logical 

1 

•T. if the smallpox immunization 
was given otherwise .F. 

POL 

Logical 

1 

.T. if the polio immunization 
was given otherwise .F. 

FLIGHT 

Logical 

1 

.T. if person is in a flight 
status otherwise .F. 

RAD 

Logical 

1 

•T. if person is in a radiation 
program otherwise .F. 

ASB 

Logical 

1 

.T. if person is in an asbestos 
program otherwise .F. 

RES 

Logical 

1 

.T. if person is in a respirator 
program otherwise .F. 

DIV 

Logical 

1 

•T. if person is in a underwater 
diver program otherwise .F. 

HAL 

Logical 

1 

.T. if person is in a high 
altitude low opening program 
otherwise .F. 

NONION_RAD 

Logical 

1 

•T. if person is in a non¬ 
ionizing radiation program 


otherwise .F. 
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TABLE 3t 

KED_HIST continued 

ELEMENT 

TYPg 

WIDTH 

DESCRIPTION 

PAPSMEAR 

Date 

8 

Date of Personnel's last PAP 
smear test 

MAMOGRAM 

Date 

8 

Date of Personnel's last 
mamogram test 

PLAGUE 

Date 

8 

Date the plague immunization 
was given, ll/ll/ll is entered 
for people who are allergic 

MMR2 

Date 

8 

Date the measles, mumps, and 
rubella immunization adult 
series was completed 


May be more advantageous as an attribute of the entity 
female tests. 


G. TABLE 4: DEN HIST.DBF 


ELEMENT TYPE WIDTH 

SSNO Character 11 

CLASS Numeric 1 

LAST_DE Date 8 

LAST CLEAN Date 8 


DESCRIPTION 
Social Security Number 
Dental Classification 
Date of last Dental exam 
Date of last cleaning 
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D. TABLE 5} PATIENT.DBF 


ELEMENT 

TYPE 

WIDTH 

DESCRIPTION 

SSNO 

Character 

11 

Social Security Number 

LASTNAME 

Character 

20 

Last ncune of person 

FIRSTNAME 

Character 

12 

First name of person 

INITIAL 

Character 

1 

Middle initial of person 

RANK 

Character 

3 

Generic military rank, I.E. 
ensign or 1ST LT = "0-1" 

SERVICE 

Character 

4 

Military service USN or USMC 

COMMAND 

Character 

4 

Command name abbreviation 

CHECKOUT 

Date 

8 

Date a person will checkout of 
his/her current command 

CHECKIN 

Date 

8 

Date person checked into NMAU 

PHYSICAL 

Date 

8 

Date last physical exam was 
completed. 

UIC 

Nximeric 

5 

Unit identification code, there 
can be more than one per 
command 

CURRIC_DIC 

Character 

2 

A code which uniquely 
identifies a curriculxom or a 
division 

SCI 

Logical 

1 

.T. if the individual is 
cleared for sensitive 
compartmental information 

DOB 

Date 

8 

Date of birth of the person 
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B. TABLE 6t CMHD DIV.DBF 


ELEMENT 

TYPE 

WIDTH 

DESCRIPTION 

UIC 

Niomeric 

5 

Unit Identification Code 

CURRIC_DIV 

Character 

2 

A code which uniquely 
identifies a curriculum or 
a division 

DIV_PHONE 

Character 

8 

Division phone number 

DIV_OFF 

Character 

11 

SSN of the division officer 


F. TABLE 7: 

COMMAND.DBF 


ELEMENT 

TYP^I 

WIDTH 

DESCRIPTION 

COMMAND 

Character 

4 

Command name abbreviation 

UIC 

Numeric 

5 

Unit Identification Code 

CO 

Character 

11 

Commanding Officer's SSN 

CMND_PHONE 

Character 

8 

Command phone number 


H. TABLE 8: 

MED_PROV.DBP 


ELEMENT 

TYPE 

WIDTH 

DESCRIPTION 

SSNO 

Character 

11 

Social Security Number 

TRAINING 

Date 

8 

Date of last required 
training 

GMT 

Date 

8 

Date of last General 
Military Training 

+ QUALS 

Character 


Qualifications 


+ 


Probably will have to be expanded into several attributes 
once clarified in normalization. 










I. TABLE 9: DATABASE INDEXES 






NEW_DATA.DBF 

NEW_DATA.MDX 

SSNO 

SSNO 

NEW_DATA.DBF 

NEW_DATA.MDX 

COMMAND 

COMMAND, 

LASTNAME, 

FIRSTNAME, 

INITIAL 

NEW_DATA.DBF 

NEW_DATA.MDX 

CURRIC 

COMMAND, 

CURRIC, 

LASTNAME, 

FIRSTNAME, 

INITIAL 
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J. TABLE 10t REPORTS 


REPORT PILE 

FILE VIEW 

DESCRIPTION 

SHELF.FRG 

SHELF.QBE 

Medical records listed in 
terminal digit filing 
system order 

NO_CURRIC.FRG 

NO_CURRIC.QBE 

List of personnel without a 
curric_div in the database 

HIV_RPRT.PRG 

N/A 

Personnel without a current 
HIV test 

MORBIDTY.PRG 

N/A 

Morbidity data for a 
requested month 

OUT_RPRT.PRG 

N/A 

Personnel info for those 
marked for deletion 

OUT_NEXT.PRG 

N/A 

Personnel info for those 
due to check-out in the 
month given 

OUT_NOW.PRG 

N/A 

Personnel info for those in 
the database beyond their 
projected check-out data 

PFT_REP.PRG 

N/A 

Personnel lacking a current 
physical exam as of the 
date of the report 

PFT_REP2.PRG 

N/A 

Personnel who need a 
phys -.al exam prior to a 
given date 

PFT_REP3.PRG 

N/A 

Personnel who need a 
physical exam prior to a 
given date for the 
curric_div given 

ONE_STOP.PRG 

N/A 

Readiness data for those 
marked for deletion from a 
given command 

READINES.PRG 

N/A 

Readiness data due for a 
future time window 

READINS2.PRG 

N/A 

Readiness data prior to a 
date given 

READINS3.PRG 

N/A 

Readiness data prior to a 
date given for a given 
curric div 
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K. TABLE 111 SX7PP0RT PROGRAMS 


FILE NAME 

TYPE 

DESCRIPTION 

BACKUP.PRG 

PROGRAM 

Backs up new_data.dbf to 
newdatbk.dbf with production 

CODE_NAM.PRG 

PROCEDURE 

Converts a curric_div to its 
associated text ncune 

DUE_DATA.PRG 

PROCEDURE 

Print data for one_stop.prg 

DUPECHK.PRG 

FUNCTION 

Disallows a repeated value for 
SSNO 

HIV_CMND.PRG 

PROCEDURE 

Command heading for HIV reports 

HIV_DATA.PRG 

PROCEDURE 

Print data for HIV reports 

HIV_PGHD.PRG 

PROCEDURE 

Page header for HIV reports 

HIV_SCHD.PRG 

PROCEDURE 

Screen page header for HIV 
reports 

LOCATE.PRG 

PROGRAM 

Locates a record for edit/browse 
given a SSNO 

OUT_CMND.PRG 

PROCEDURE 

Command heading for check-out 
reports 

OUT_DATA.PRG 

PROCEDURE 

Print data for check-out reports 

OUT_MARK.PRG 

PROGRAM 

Marks records for deletion given 
a SSNO 

OUT_PGHD.PRG 

PROCEDURE 

Page header for check-out 
reports 

OUT_SCHD.PRG 

PROCEDURE 

Screen page header for check-out 
reports 

OUT_UMRK.PRG 

PROGRAM 

Un-marks records for deletion 
given a SSNO 

PE_DUE_1.PRG 

♦FUNCTION 

•T. returned if physical exam 
due by the current date 

PE_DUE_2,PRG 

♦FUNCTION 

.T. returned if physical exam 
due by the date value passed to 
the procedure 

PE_DUE_3.PRG 

♦FUNCTION 

•T. returned if physical exam 
due by the month after the 
current date 

PFT_CMND.PRG 

PROCEDURE 

Command heading for PFT reports 
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K. TABLX lit SUPPORT PROORAMS contlnu«d 


flhS MftMB 

TYPE 

DESCRIPTION 

PFT_PGHD.PRG 

PROCEDURE 

Page header for PFT reports 

PFT_SCHD.PRG 

PROCEDURE 

Screen page header for PFT 
reports 

PHYS_DUE.PRG 

♦FUNCTION 

Determines an individuals next 
physical exam due date 

PPD_DUE.PRG 

♦FUNCTION 

Determines an individuals next 
PPD immunization due date 

PRN_RTRN.PRG 

PROCEDURE 

Returns system print variadsles 
after a print to screen 

PRN_SCRN.PRG 

PROCEDURE 

Saves system print variables and 
prepares for a print to screen 

RED_CMND. PRG 

PROCEDURE 

Command heading for readiness 
reports 

RED_DATA.PRG 

PROCEDURE 

Print data for readiness reports 

RED_PGHD.PRG 

PROCEDURE 

Page header for readiness 
reports 

RED_SCHD.PRG 

PROCEDURE 

Screen page header for readiness 
reports 

RESTORE.PRG 

PROCFDTTRE 

Returns new data.dbf from 
iiewdacbk.dbf with production 

TD_DUE.PRG 

♦FUNCTION 

Determines an individuals next 
Tetanus immunization due date 

TITLE.PRG 

♦FUNCTION 

Determines an individual's 
service specific rank I.E. 0-1 
and Navy = "Ensign" 

TYP_DUE.PRG 

♦FUNCTION 

Determines an individuals next 
Typhoid immunization due date 

YF_DUE.PRG 

♦FUNCTION 

Determines an individuals next 
yellow fever immunization due 
date 

►FUNCTION This 

type is a 
called as a 

function (returns a single value 
procedure. 
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APPENDIX D: NMAUDS 1.0 PS06SAM CODS (PEG FILES) 


***PR6 files are listed In the order that they are displayed 
In the data dictionary. 


* PROGRAM NAME: 

♦PURPOSE : 

* 

* 

* 

* 

* 

* 

* 

* 

♦WRITTEN BY : 
♦LAST CHANGED: 


HIV_RPRT 

This is a report which displays: 

1. Ncune 

2. Rank(title) 

3. SSN 

4. Coiranand 

5. (Durricultim/division 

6. Date of last HIV test 

of personnel who have not had their HIV test in 
the last year. 

--Individuals are grouped by their command. 
Kevin Albert Bianchi 
8 AUG 93 


SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER command 

♦ New_Data DBF is used with command multiple index. 


GO TOP 

SET PRINTER ON 

♦ Record pointer to the beginning of the DBF. 

PUBLIC mcommand, ptitle, mlineno, title, mplength, mpageno, 
selection 


♦ Variables Initialized 
MCOMMAND = "” 

_pageno = 1 

ptitle = "PERSONNEL LACKING CURRENT HIV TEST" 

mlineno = 0 

mplength = 60 

mpageno = 1 

selection = SPACE(1) 

♦ Variables initialized 


@ 5,10 SAY "Do you want the report printed or put to the 
screen?" 

@ 7,17 SAY "Select 'P' for print or 'S' for screen." 

@ 10,35 GET selection PICTURE "@M P,S"; 

MESSAGE "Press SPACEBAR to scroll. Enter to select" 

READ 

CLEAR 
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* ABSigns a value to selection which runs a print job or a put 
to the screen. 

IP selection - "P" 

PRINT JOB 
DO HIV_PgHd 

* Calls the page header progreun. 

DO WHILE .NOT. BOF() 

MCOMMAND - COMMAND 
mcoxint > 0 

DO WHILE C0M4AND - MC0M4AND 
IF nqplength - mlineno 
mlineno « 0 
EJECT PAGE 
DO HIV_PgHd 
DO HIV_Cmnd 

* No Cmnd procedure written specifically for this 
report as the 

* command heading is the same for both reports 
upon initial design. 

ENDIF 

* Line # counter to zero, page advanced, Header 
programs called. 

IF CTOD(STR(DAY(HIV)) + "/" + STR(MONTH(HIV)) + "/" 
+ STR(YEAR(HIV)+1)) <» DATE() 

* Determines if an HIV test has been done in the last 
year. 

mcount « mcount r i 
IF mcount = 1 
DO HIV_Cmnd 
ENDIF 

* Prints command header when a new command is 
encountered. 

DO TITLE 
DO HIV_DATA 

* Output progrcims called 
ENDIF 

SKIP 

ENDDO 

* Continue while the command remains the same. 

ENDDO 

* Continues until EOF marker is located. 

EJECT PAGE 

ENDPRINTJOB 

ELSE 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to the 
screen. 
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PRINTJOB 
DO HIV_ScHd 

* Calls the page header program. 

DO WHILE .NOT. EOF() 

IF _plength « mlineno 
mllneno « 0 
EJECT PAGE 
DO HIV_ScHd 
ENDIF 

* Line # counter to zero, page advanced. Header programs 
called. 

IF CTOD(STR(DAY(HIV) ) + "/" + STR(MONTH(HIV) ) + "/" + 

STR (YEAR (HIV)+1) ) <- DATEO 

* Determines if an HIV test has been done in the last 
year. 

DO TITLE 
DO HIV_DATA 

* Output progrcuns called 
ENDIF 
SKIP 
ENDDO 

* Continues until EOF marker is located. 

ENDPRINTJOB 

DO PRN_RTRN 

* Procedure to return print variables to their original 
values. 

ENDIF 

SET ESCAPE ON 


* PROGRAM NAME: 
♦PURPOSE : 

* 

* 

* 


* 

♦WRITTEN BY : 
♦LAST CHANGED: 


MORBIDTY 

This is a report which displays morbidity data 
for a specified month. Data items include 
check-ins, checkouts, yellow fever, PPD, 
tetanus, typhoid and physical exams. 

The program will query the individual for the 
month. 

--Individuals are grouped by their command. 
Kevin Albert Bianchi 
28 JUL 93 


SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER command 

♦ Uses new_data DBF and the command multiple index 


GO TOP 
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^Record pointer to the top of the DBF printer set on. 

PUBLIC incc»mnand, mlineno, reportjmonth, report_year, 
report_date,; ptitle, title, n^length, mpageno, print_job 

* varicdDles declared global 

* VaricUsles initialized 
print_job » SPACE(1) 
mlineno - 0 

n^ageno - 1 
mplength - 60 
report_month - SPACE(2) 
report_year - 1993 
report_date - {} 
physical_count - 0 
checkin_count » 0 
checkout_count - 0 
yf_count « 0 
ppd_count = 0 
td_count » 0 
typ_count - 0 

* Variables initialized 

@5,4 SAY "This report will list the morbidity information for 
the month selected.” 

@10,5 SAY "Enter the niomber equal to the month of your report 
and press return." 

@ 18,35 GET report_month PICTURE "@M 

01,02,03,04,05,06,07,08,09,10,11,12"; 

MESSAGE "Press SPACEBAR to scroll, Enter to select." 

READ 

CLEAR 

* Multiple choice query for report month. 

@ 5,10 SAY "Enter the year which contains the month of this 
report." 

@ 7,11 SAY "***Enter all four numbers (I.E. For 1993 ENTER 
1993) ." 

@ 12,35 get report_year PICTURE "9999" 

READ 

CLEAR 

* Query for year of report. 

report_date » CTOD("01/" + report_month + "/" + 

RIGHT{STR{report_year),2)) 

ptitle = "MORBIDITY REPORT FOR " + UPPER(CMONTH(report_date))+ 
" " +STR(YEAR(DATE{)),4) 

DO WHILE .NOT. EOF() 

IF MONTH(physical) = MONTH{report_date) .AND. 
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YEAR(physical) » YEAR(report_date) 

physical_count - physical_count + 1 
ENDIF 

IF DELETED 0 - .T. 

checkout_count = checkout_count + 1 
ENDIF 

* Checkout dates are not presently stored if they are in 
the future 

* use the checkout count data the same as the other 
counters. 

IF MONTH(checkin) = MONTH(report_date) .AND. 

YEAR(checkin) = YEAR(report_date) 
checkin_count = checkin_count + 1 
ENDIF 

IF MONTH(yellowfev) = MONTH(report_date) .AND. 
YEAR(yellowfev) = YEAR(report_date) 
yf_count = yf_count + l 
ENDIF 

IF MONTH(PPD) = MONTH(report_date) .AND. 

YEAR(PPD) = YEAR(report_date) 
ppd_count = ppd_count + 1 
ENDIF 

IF MONTH(tetanus) = MONTH(report_date) .AND. 

YEAR(tetanus) = YEAR(report_date) 
td_count = td_count + 1 
ENDIF 

IF MONTH(typhoid) = MONTH(report_date) .AND. 

YEAR(typhoid) = YEAR(report_date) 
typ_count = typ_count + 1 
ENDIF 
SKIP 
ENDDO 

* Counts each field listed for the number completed in the 
month given. 

* Continues until EOF is retrieved. 

@2,20 SAY ptitle 
0 6,8 SAY "Physical Exams" 

@6,36 SAY "Checkins" 

@6,56 SAY "Checkouts" 

@ 7,13 SAY physical_count PICTURE "999" 

@7,38 SAY checkin_count PICTURE "999" 

@7,59 SAY checkout_count PICTURE "999" 

@ 10,3 SAY "Yellowfever" 

@ 10,28 SAY "PPD" 
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• 10,45 SAY "Tetanus" 

• 10,64 SAY "Typhoid" 

•11,7 SAY yf_count PICTURE "999" 

• 11,28 SAY ppd_count PICTURE "999" 

• 11,47 SAY td_COUnt PICTURE "999" 

• 11,66 SAY typ_count PICTURE "999" 

READ 

CLEAR 

• Puts results of the morbidity counts to the screen. 

• 5,18 SAY "The month of this report is " + 

CMONTH(report_date) 

• 8,14 SAY "Do you want this report sent to the printer" 

« 10,35 GET print_job PICTURE "«M N,Y"; 

MESSAGE "Press spacebar to toggle, ENTER to select." 

READ 

CLEAR 

• Query to determine if a printed copy is needed. 

IF print_job *= "Y" 

SET PRINTER ON 
PRINTJOB 
_wrap * .T. 

_alignment = "center" 

? 

? ptitle 

_alignment = "left" 

? 

? 

? 

? 

? "Physical Exams" STYLE "U" AT 8, "Checkins" STYLE "U" AT 
34, "Checkouts" STYLE "U" AT 57 
? physical_count AT 13 PICTURE "999" 

?? checkin_count AT 36 PICTURE "999" 

?? checkout_count AT 60 PICTURE "999" 

* Using the marked fields as the count 
? 

? 

? 

? "Yellowfever" STYLE "U" AT 3, "PPD" STYLE "U" AT 26, 
"Tetanus" STYLE "U" AT 45, "Typhoid" STYLE "U" AT 66 
? yf_count AT 7 PICTURE "999" 

?? ppd_COUnt AT 26 PICTURE "999" 

?? td_COunt AT 47 PICTURE "999" 

?? typ_count AT 68 PICTURE "999" 

ENDPRINTJOB 

ENDIF 

• If print_job is Y then report is sent to the printer. 

EJECT PAGE 

SET ESCAPE ON 
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*PROGRAM 
♦PURPOSE 


* 

* 

* 

* 

* 

* 

* 


of 


NAME: OUT_RPRT 

: This is a report which displays: 

1. Name 

2. Rank(title) 

3. SSN 

4. Service 

5. Command 

6. Check-out Date (estimated) 
records that are marked for deletion. 


* --Individuals are grouped by their command. 
♦WRITTEN BY : Kevin Albert Bianchi 
♦LAST CHANGED: 01 AUG 93 


SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER command 

♦ New_Data DBF is used with command multiple index. 

GO TOP 

SET PRINTER ON 

♦ Record pointer to the beginning of the DBF. 

PUBLIC mcommand, ptitle, mlineno, title, mplength, mpageno, 
selection 

♦ Varibles Initialized 
MCOMMAND » "" 
jpageno = 1 

ptitle » "PERSONNEL RECORDS CURRENTLY MARKED FOR DELETION" 

mlineno = 0 

mplength = 60 

mpageno = 1 

selection = SPACE(1) 

♦ Variables initialized 

@ 5,10 SAY "Do you want the report printed or put to the 
screen?" 

® 7,17 SAY "Select 'P' for print or 'S' for screen." 

@ 10,35 GET selection PICTURE "@M P,S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 
READ 
CLEAR 

IF selection = "P" 

PRINTJOB 
DO OUT_PgHd 

♦ Calls the page header program. 

DO WHILE .NOT. EOF() 

MCOMMAND = COMMAND 
mcount = 0 
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DO WHILE COMMAND » MCOMMAND 
IF ir 5 )length = mlineno 
mlineno = 0 
EJECT PAGE 
DO OUT_PgHd 
DO OUT_Cmnd 
ENDIF 

* Line # counter to zero, page advanced, Header 
progrcims called. 

IF DELETED 0 = .T. 

mcount = mcount + l 
IF mcount = 1 
DO OUT_Cinnd 
ENDIF 

* Prints command header when a new command is 
encountered. 

DO TITLE 
DO OUT_DATA 

* Output programs called 
ENDIF 

SKIP 

ENDDO 

* Continue while the command remains the same. 

ENDDO 

* Continues until EOF marker is located. 

READ 

EJECT PAGE 
ENDPRINTJOB 

Lii _)E 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to screen. 
PRINTJOB 

DO OUT_ScHd 

* Calls the page header program. 

DO WHILE .NOT. EOF() 

IF _plength = mlineno 
mlineno = 0 
EJECT PAGE 
DO OUT_ScHd 
ENDIF 

* Line # counter to zero, page advanced. Header progrcims 
called. 

IF DELETED 0 = .T. 

DO TITLE 
DO OUT_DATA 

* Output programs called 
ENDIF 
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SKIP 

ENDDO 

* Continues until EOF marker is located. 

READ 

ENDPRINTJOB 
DO PRN_RTRN 

* Procedure to return print variables to their original 
values. 

ENDIF 

SET ESCAPE ON 


♦PROGRAM NAME: OUT_NEXT 

♦PURPOSE : This is a report which displays: 

♦ 1. Name 

♦ 2. Rank(title) 

♦ 3. SSN 

♦ 4. Service 

♦ 5. Command 

♦ 6. Check-out Date (estimated) 

♦ of personnel in the Medical ADMIN Unit's care who 
are due to check-out in a given month. The 
progrcim will query the individual for the month. 

♦ --Individuals are grouped by their command. 
♦WRITTEN BY : Kevin Albert Bianchi 

♦LAST CHANGED: 9 JUL 93 

SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER command 

♦ Uses new_data DBF and the command multiple index 
GO TOP 

SET PRINTER ON 

♦Record pointer to the top of the DBF printer set on. 

PUBLIC mcommand, mlineno, checkout_month, checkout_year, 
checkout_date,; ptitle, title, mplength, mpageno, selection 

♦ variables declared global 

♦ Variables initialized 
MCOMMAND = "" 
mlineno = 0 

mpageno = 1 
mplength = 60 
print_flag = .T. 
checkout_month = SPACE(2) 
checkout__year = 1993 
selection = SPACE(l) 

♦ Variables initialized 


77 






O 5,18 SAY "This report will list the personnel who are" 

9 6,18 SAY "due to checkout in ^he month you select." 

® 10,5 SAY "Enter the number equal to the month of your report 
and press return." 

9 18,35 GET checkout_month PICTURE "®M 

01,02,03,04,05,06,07,08,09,10,11,12"; 

MESSAGE "Press SPACEBAR to scroll. Enter to select." 

READ 

CLEAR 

* Multiple choice query for report month. 

® 5,10 SAY "Enter the year which contains the month of this 
report." 

® 7,11 SAY "***Enter all four numbers (I.E. For 1993 ENTER 
1993) . " 

@ 12,35 get checkout_year PICTURE "9999" 

READ 

CLEAR 

* Query for year of report. 

checkout_date = CTOD("01/" + checkout_month + "/" + 

RIGHT(STR(checkout_year),2)) 

ptitle = "PERSONNEL DUE TO CHECKOUT IN " + 

UPPER(CMONTH(checkout_date)) 

@ 5,10 SAY "Do you want the report printed or put to the 
screen?" 

@ 7,17 SAY "Select 'P' for print or 'S' for screen." 

@ 10,35 GET selection PICTURE "@M P,S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 
READ 
CLEAR 

* Assigns a value to selection which determines a print or a 
put to screen. 

IF selection = "P" 

PRINTJOB 
DO OUT_PgHd 
* Report page header 

DO WHILE .NOT. EOF{) 

MCOMMAND = COMMAND 

* Command name assigned to mcommeid as a mem_var. 

mcount = 0 

DO WHILE COMMAND = MCOMMAND 
IF mlineno = mplength 
mlineno = 0 
EJECT PAGE 
DO OUT_PgHd 
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DO OUT_Cinnd 
ENDIF 

* Line # counter to zero, full page is advanced, 
header programs called. 

IF VAL(checkout_month) >= MONTH(checkout) 

•AND. checkout_year = YEAR(checkout); 

•OR. checkout_year > YEAR(checkout) 

.AND. checkout <> {} 
mcount = mcount + 1 
IF mcount = 1 
DO OUT_Cmnd 
ENDIF 

* Determines if new command and calls the command 
header program. 

DO TITLE 
DO OUT_DATA 

* Title and Out_data called for output. 

ENDIF 

* Determines if check-out is due. 

SKIP 

ENDDO 

* Continues until command changes. 

ENDDO 

* Continues until EOF is retrieved. 

EJECT PAGE 

ENDPRINTJOB 

ELSE 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to screen. 

PRINTJOB 
DO OUT_ScHd 

* Report page header 

DO WHILE .NOT. EOF() 

IF _plength = mlineno 
mlineno = 0 
EJECT PAGE 
DO OUT_ScHd 
ENDIF 

* Line # counter to zero, full page is advanced, header 
programs called. 

IF VAL(checkout_month) >= MONTH(checkout) .AND. 
checkout_year = YEAR(checkout); 

.OR. checkout_year > YEAR(checkout) .AND. checkout <> {} 
DO TITLE 
DO OUT_DATA 

* Title and Out_data called for output. 
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ENDIF 

* Determines if check-out is due. 

SKIP 

ENDDO 

* Continues until EOF is retrieved. 

ENDPRINTJOB 

DO PRN_RTRN 

* Procedure to return print variables to their original 
values. 

ENDIF 

SET ESCAPE ON 


♦PROGRAM 

♦PURPOSE 

* 

★ 

* 

* 

* 

* 

* 


NAME; OUT_NOW 

: This is a report which displays: 

1. Ncune 

2. Rank(title) 

3. SSN 

4. Service 

5. Command 

6. Check-out Date (estimated) 

of personnel in the Medical ADMIN Unit's care due 


to check-out. 

♦ --Individuals are grouped by their command. 

♦WRITTEN BY ; Kevin Albert Bianchi 
♦LAST CHANGED: 9 JUL 93 


SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER command 

♦ New_Data DBF is used with command multiple index. 

GO TOP 

SET PRINTER ON 

♦ Record pointer to the beginning of the DBF. 

PUBLIC mcommand, ptitle, mlineno, title, mplength, mpageno, 
selection 

♦ Varibles Initialized 
MCOMMAND = "" 
jpageno = 1 

ptitle =« "PERSONNEL CURRENTLY LISTED TO CHECKOUT" 

mlineno = 0 

nplength = 60 

mpageno = 1 

selection = SPACE(1) 

♦ Variables initialized 
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m 5,10 SAY "Do you want the report printed or put to the 
screen?" 

9 1,11 SAY "Select 'P' for print or 'S' for screen." 

9 10,35 GET selection PICTURE "®M P,S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 

READ 

CLEAR 

* Assigns a value to selection which determines a print or a 
put to screen. 

IF selection = "P" 

PRINTJOB 
DO 0UT_PgHd 

* Calls the page header program. 

DO WHILE .NOT. EOF() 

MCOMMAND = COMMAND 
mcount = 0 

DO WHILE COMMAND = MCOMMAND 
IF mplength = mlineno 
mlineno = 0 
EJECT PAGE 
DO OUT_PgHd 
DO OUT_Cmnd 
ENDIF 

* Line # counter to zero, page advanced. Header 
prograuns called. 

IF checkout <= DATEO 
count = mcount + 1 
IF mcount = 1 
DO OUT_Cmnd 
ENDIF 

* Prints command header when a new command is 
encountered. 

DO TITLE 
DO OUT_DATA 

* Output prograims called 
ENDIF 

SKIP 

ENDDO 

* Continue while the command remains the same. 

ENDDO 

* Continues until EOF marker is located. 

EJECT PAGE 

ENDPRINTJOB 

ELSE 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to the 
screen. 

PRINTJOB 
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DO OUT_ScHd 

* Calls the page header progrcun 
DO WHILE .NOT. BOF() 

IF jplength - mlineno 
mllneno « 0 
EJECT PAGE 
DO OUT_PgHd 
DO OUT_Otnnd 
ENDIF 

* Line # counter to zero, page advanced, Header progreutis 
called. 

IF checkout <= DATEO 
DO TITLE 
DO OUT_DATA 

* Output progrcuns called 
ENDIF 
SKIP 
ENDDO 

* Continues until EOF marker is located. 

ENDPRINTJOB 

DO PRN_RTRN 

* procedure to return print variables to their original 
values. 

ENDIF 

SET ESCAPE ON 


♦PROGRAM 

NAME: 

PFT_REP (Personnel Lacking Current Physical 



Excim for the PFT) 

♦PURPOSE 


This is a report which displays: 

* 

1. 

Name 

* 

2. 

Rank(title) 

* 

3. 

SSN 

* 

4. 

Date of last Physical Exam 

* 

5. 

Date next Physical Exam is due 

* 

of 

personnel in the Medical ADMIN Unit's care. 

* 


Individuals are grouped by their command. 

♦WRITTEN 

BY : 

Kevin Albert Bianchi 


♦LAST CHANGED; 6 Jul 93 

SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER command 

* New_data DBF used with the command multiple index. 
GO TOP 

* Record pointer to beginning of the DBF. 

SET PRINTER ON 
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PUBLIC mlineno, snext_PE, mcomnand, due, mplength, title, 
selection 

* Declare variables to be global 

* Variables initialized 
mconrinand * "" 
snext_PE » {} 

due - .T. 

ptitle = "PERSONNEL LACKING CURRENT PHYSICAL EXAM FOR THE PFT" 

_pageno - 1 

print_flag = .T. 

mlineno » 0 

mplength = 60 

itpageno = 1 

selection * SPACE(1) 

* variables initialized 

@ 5,10 SAY "Do you want the report printed or put to the 
screen?" 

@ 7,17 SAY "Select 'P' for print or 'S' for screen." 

® 10,35 GET selection PICTURE P,S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 

READ 

CLEAR 

* Assigns a value to selection which determines a print or a 
put to screen. 

IF selection = "P" 

PRINTJOB 
DO PFT_PgHd 
DO WHILE .NOT. EOF() 

MCOMMAND = COMMAND 
mcount = 0 

DO WHILE COMMAND = MCOMMAND 
DO PHYS_DUE 

* Physical due date determined in called program. 

DO PE_DUE_1 

* Compares physical due date to the current date, 

* due is defined logical true or false. 

IF mplength = mlineno 

EJECT PAGE 
mlineno = 0 
DO PFT_PgHd 
DO PFT_Cmnd 
ENDIF 

* Full page advanced, line # to zero, command header 
programs called. 

IF DUE * .T. 

mcount » mcount + l 
IF mcount = 1 
DO PFT Cmnd 
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BNDIP 

* Determines if new command is started. 

DO TITLE 

IF physical - {12/12/12} 

DO DUE_DATA 
ELSE 

DO PFT_DATA 
ENDIF 

* For those records given 12/12/12 because they 
were due. 

* This was a result of initial data collection, as 
of the date 

* of this program all record reviews will 
ascertain the date of 

* the previous physical rather than just a due 
statement. 

SKIP 

ELSE 

SKIP 

ENDIF 

* If due is true report data is printed else, skip to 
next record. 

ENDDO 

ENDDO 

EJECT PAGE 
ENDPRINTJOB 
ELSE 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to screen. 
PRINTJOB 

DO PFT_ScHd 
DO WHILE .NOT. EOF() 

DO PHYS_DUE 

* Physical due date determined in called program. 

DO PE_DUE_1 

* Compares physical due date to the current date, 

* due is defined logical true or false. 

IF _plength = mlineno 

EJECT PAGE 
mlineno = 0 
DO PFT_ScHd 
ENDIF 

* Full page advanced, line # to zero, command header 
programs called. 

IF DUE - .T. 

DO TITLE 

IF physical = (12/12/12) 

DO DUE_DATA 
ELSE 

DO PFT_DATA 
ENDIF 





* For those records given 12/12/12 because they were due. 

* This was a result of initial data collection, as of the 
date of this progrcun all record reviews will ascertain the 
date of the previous physical rather than just a due 
statement. 

SKIP 

ELSE 

SKIP 

ENDIF 

* If due is true report data is printed else, skip to next 
record. 

ENDDO 

ENDPRINTJOB 
DO PRN_RTRN 

* Procedure to return print variables to their original 
values. 

ENDIF 

SET ESCAPE ON 


♦PROGRAM NAME: 


♦PURPOSE 

* 


* 

* 

* 


* 

* 

♦WRITTEN BY 


PFT_REP2 (Personnel Lacking Current Physical 
Exam for the PFT) 

: This is a report which displays: 

1. Name 

2. Rank(title) 

3. SSN 

4. Date of last Physical Exam 

5. Date next Physical Exam is due 

of personnel in the Medical ADMIN Unit's care who 
will need 

a physical exam before the PFT's scheduled date. 
--Individuals are grouped by their command. 

: Kevin Albert Bianchi 


♦LAST CHANGED: 6 Jul 93 


SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER command 

♦ New_data DBF used with the command multiple index. 

GO TOP 

♦ Record pointer to beginning of the DBF. 

SET PRINTER ON 

PUBLIC mlineno, snext_PE, mcommand, due, ptitle, PFT_year, 
month_val,; mplength, mpageno, title, selection 

♦ Declare variables to be global 

♦ Varicdjles initialized 
mcommand = "" 
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8next_PE ■ {} 
due - .T. 

PFT_month - SPACE (9) 

PFT_year - 0 
month_val ■ 0 
mlineno » 0 
nplength » 60 
mpageno > 1 
selection « SPACE(1) 

* varlcUsles initialized 

0 5,11 SAY "Select the month in which the PFT is going to be 
performed?" 

0 7,35 GET PFT_month PICTURE "0M January, February, March, 
April, May, June, July, August, September, October,; 
November, December"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select" 

READ 

CLEAR 

* Query month of report. 

DO CASE 

CASE PFT_month = "January" 
month_val = 1 

CASE PFT_month = "February" 
month_val = 2 
CASE PFT_month = "March" 
month_val = 3 
CASE PFT_month = "April" 
month_val = 4 
CASE PFT_month = "May" 
month_val = 5 
CASE PFT_month = "June" 
month_val = 6 
CASE PFT_month = "July" 
month_val = 7 
CASE PFTjmonth = "August" 
month_val = 8 

CASE PFT_month = "September" 
month_val = 9 
CASE PFT_month = "October" 
month_val = 10 
CASE PFT_month = "November" 
month_val = 11 
CASE PFT_month = "December" 
month_val = 12 
ENDCASE 

* Case gets a numexic value for PFT-month and call it 
month_val 

DO WHILE PFT_year < YEAR(DATE(}) 




9 5,17 SAY "What year is the PFT going to be performed?" 

9 6,22 SAY "Enter all four numbers of the year." 

« 9,35 GET PFT_year PICTURE "9999" 

READ 

CLEAR 

IF PFT_year < YEAR(DATE()) 

0 5,6 SAY "Invalid value for year, value can not be less 
than the current year." 

READ 

CLEAR 

ENDIF 

* If the given value for PFT_year is too small loops back 
for a reentry. 

ENDDO 

* Query for the year PFT will be performed. 

ptitle = "PERSONNEL NEEDING A PHYSICAL EXAM FOR THE PFT IN " 
+ UPPER(PFT_month) 

0 5,10 SAY "Do you want the report printed or put to the 
screen?" 

0 7,17 SAY "Select 'P' for print or 'S' for screen." 

0 10,35 GET selection PICTURE "0M P,S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 
READ 
CLEAR 

* Assigns a value to selection which determines a print or a 
put to screen. 

IF selection = "P" 

PRINTJOB 
DO PFT_PgHd 
DO WHILE .NOT. EOF() 

MCOMMAND = COMMAND 
mcount = 0 

DO WHILE COMMAND = MCOMMAND 
DO PHYS_DUE 

* Physical due date determined in called program. 

DO PE_DUE_2 

* Compares physical due date to the month_val date, 

* due is defined logical true or false. 

IF mplength = mlineno 
EJECT PAGE 
mlineno = 0 
DO PFT_PgHd 
DO PFT_Cmnd 
ENDIF 

* Full page advanced, line # to zero, command header 
programs called. 

IF DUE = ,T. 
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mcount - mcount + l 
IF mcount » 1 
DO PFT_Cmnd 
ENDIF 

* Determines if new command is started. 

DO TITLE 

IF physical = {12/12/12} 

DO DUE_DATA 
ELSE 

DO PFT_DATA 
ENDIF 

* This is for data entry value 12/12/12 which was 
used for due 

* when physical exam preformed dates were not 
ascertained during record review. 

* As of the date of this program further record 
reviews will determine the data the physical exams 
were performed. 

SKIP 

ELSE 

SKIP 

ENDIF 

* If due is true report data is printed else, skip to 
next record. 

ENDDO 

ENDDO 

EJECT PAGE 
ENDPRINTJOB 
ELSE 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to the 
screen. 

PRINTJOB 
DO PFT_ScHd 
DO WHILE .NOT. EOF() 

DO PHYS_DUE 

* Physical due date determined in called program. 

DO PE_DUE_2 

* Compares physical due date to the month_val date, 

* due is defined logical true or false. 

IF _plength = mlineno 

EJECT PAGE 
mlineno = 0 
DO PFT_ScHd 
ENDIF 

* Full page advanced, line # to zero, screen page 
header. 

IF DUE = .T. 

DO TITLE 

IF physical = {12/12/12} 
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DO DUE_DATA 
ELSE 

DO PFT_DATA 
ENDIF 

* This is for data entry value 12/12112 which was 
used for due when physical exam preformed dates were 
not ascertained during record review. 

* As of the date of this program further record 
reviews will determine the data the physical exams 
were performed. 

SKIP 

ELSE 

SKIP 

ENDIF 

* If due is true report data is printed else, skip to 
next record. 

ENDDO 

ENDPRINTJOB 
DO PRN_RTRN 

* Procedure to return print variables to their original 
values. 

ENDIF 

SET ESCAPE ON 


♦PROGRAM 

NAME: 

PFT_REP3 (Personnel Lacking Current Physical 

♦PURPOSE 

* 

1. 

Exam for the PFT) 

This is a report which displays: 

Name 

it 

2. 

Rank(title) 

it 

3. 

SSN 

it 

4. 

Date of last Physical Exam 

it 

5. 

Date next Physical Exam is due 

it 

it 

★WRITTEN 

BY : 

of personnel in the Medical ADMIN Unit's care 
who will need a physical exam before the PFT's 
scheduled date with a query by curriculum. 
--Individuals are grouped by their command. 
Kevin Albert Bianchi 

♦IjAST CHANGED: 

6 Jul 93 


SET ESCAPE OFF 
SET TALK OFF 

USE new_data.dbf ORDER curric 

* PFT_cur view used with the curric multiple index. 
GO TOP 

* Record pointer to beginning of the DBF. 

SET PRINTER ON 
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PUBLIC mlineno, snext_PE, mcommand, due, ptitle, PFT_year,; 
PFT_month, inonth_val, nqplength, mpageno, curric_code, ; 
good_report, title, curric_name, selection 

* Declare variables to be global 

* Variables initialized 
mcommand - "" 
snext_PE - {} 

due = .T. 

PFT_month = SPACE (9) 

PFT_year = 0 
month_val - 0 
mlineno » 0 
mplength ■ 60 
mpageno » 1 
curric_code = SPACE(2) 
good_report = "N" 
selection = SPACE(1) 

* variables initialized 

DO WHILE UPPER(good_report) <> "Y" 

@ 5,6 SAY "Select the curriculxom or department code 

performing the PFT?" 

® 7,16 SAY "The final option, 04, is for NPGS staff." 

@ 9,35 GET curric_code PICTURE "®M 

30,31,32,33,3A, 34,35,36,37,38,39,04 

MESSAGE "Press SPACEBAR to scroll, ENTER to select" 
READ 

DO CODE_NAM 

* Retrieves curriculum office name for the given curriculvim 
code. 

® 12,12 SAY "The curriculum you chose is " + curric_name 
® 14,13 SAY "Is this the curriculum you want a report for?" 
® 15,20 SAY "Select 'Y' for yes or 'N' for no." 

® 17,35 GET good_report PICTURE "®M Y,N" 

MESSAGE "Press SPACEBAR to scroll and ENTER to select." 
READ 
CLEAR 
ENDDO 

® 5,10 SAY "Select the month in which the PFT is going to be 
performed?" 

® 7,35 GET PFT_month PICTURE "«M January, February, March, 
April, May,; June, July, August, September, October,; 
November, December"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select" 

READ 

CLEAR 

* Query month of report. 

DO CASE 
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CASE PPT_month - "January" 
month_val - 1 

CASE PFT_month » "February" 
month_val ■ 2 
CASE PFT_month ■ "March" 
month_val » 3 
CASE PFT_month ■ "J^ril" 
month_val » 4 
CASE PFT_month = "May" 
month_val = 5 
CASE PFT_month - "June" 
month_val = 6 
CASE PFT_month = "July" 
month_val = 7 
CASE PFT_month = "August" 
month_val = 8 

CASE PFT_month = "September" 
month_val = 9 
CASE PFT_month - "October" 
month_val = 10 
CASE PFT_month = "November" 
month_val = 11 
CASE PFT_month = "December" 
month_val = 12 

ENDCASE 

* Case gets a niimeric value for PFT-month and calls it 

month_val 

DO WHILE PFT_year < YEAR(DATE{)) 

@5,17 SAY "What year is the PFT going to be performed?" 

@ 6,22 SAY "Enter all four numbers of the year." 

@9,35 GET PFT_year PICTURE "9999" 

READ 

CLEAR 

IF PFT_year < YEAR(DATE()) 

@5,6 SAY "Invalid value for year, value can not be less 
than the current year." 

READ 

CLEAR 

ENDIF 

* If the given value for PFT_year is too small loops back 
for a reentry. 

ENDDO 

* Query for the year PFT will be performed. 

ptitle = "PHYSICAL EXAM DUE FOR THE PFT IN "+UPPER (PFT_month) ; 

+ "(" + UPPER(curric_name) + ")" 

@ 5,10 SAY "Do you want the report printed or put to the 
screen?" 

@7,17 SAY "Select 'P' for print or 'S' for screen." 
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9 10,35 GET selection PICTURE "«M P.S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select." 

READ 

CLEAR 

* Assigns a value to selection which determines a print or a 
put to screen. 

IF selection ■ "P" 

PRINTJOB 
DO PFT_PgHd 
DO WHILE .NOT. EOF() 

DO WHILE curric_div « curric_code 
DO PHYS_DUE 

* Physical due date determined in called program. 

DO PE_DUE_2 

* Con^ares physical due date to the month_val date, 

* due is defined logical true or false. 

IF mlineno * mplength 

EJECT PAGE 
mlineno « 0 
DO PFT_PgHd 
DO PFT_Cmnd 
ENDIF 

* Full page advanced, line # to zero, command header 
programs called. 

IF DUE = .T. 

DO TITLE 

IF physical = {12/12/12) 

DO DUE_DATA 
ELSE 

DO PFT_DATA 
ENDIF 

* This is for the 12/12/12 data entry for physical 
which is the entry for due. 

* In the future this field will have the actual 

* date the physical exam was completed. 

ENDIF 

* If due is true report data is printed else, skip to 
next record. 

SKIP 

ENDDO 

SKIP 

ENDDO 

READ 

EJECT PAGE 
ENDPRINTJOB 
ELSE 

DO PRN_SCRN 

* Procedure to prepare print varicd>les for a put to the 
screen. 

PRINTJOB 
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DO PPT_ScHd 
DO WHILE .NOT. BOP() 

DO WHILE curric_div - curric_code 
DO PHYS_DUE 

* Physical due date determined in called progreim. 

DO PE_DUE_2 

* Con^ares physical due date to the month_val date, 

* due is defined logical true or false. 

IP _jplength » mlineno 
EJECT PAGE 
mlineno » 0 
DO PFT_ScHd 
ENDIP 

* Full page advanced, line # to zero, screen header 
programs called. 

IP DUE = .T. 

DO TITLE 

IF physical = {12/12/12} 

DO DUE_DATA 
ELSE 

DO PFT_DATA 
ENDIF 

* This is for the 12/12/12 data entry for physical 
which is the 

* entry for due. In the future this field will 
have the actual 

* date the physical exam was completed. 

ENDIF 

* If due is true report data is printed else, skip to 
next record. 

SKIP 

ENDDO 

SKIP 

ENDDO 

READ 

ENDPRINTJOB 
DO PRN_RTRN 

* Procedure to return print variables to their original 
values. 

ENDIF 

SET ESCAPE OFF 
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♦PRCX3RAM NAME: ONB_STOP 

♦PURPOSE : This is a report which displays: 

* 1. Ncune 

* 2. Rank(title) 

* 3. SSN 

* 4. Medical Action Required 

* of personnel who are due for at least one of the 

* following immunizations, physical exam and blood 
type. 

* The program will query for the major coiranands. 

* This is designed to support on stop check-out at 
NPGS but will run for MOD and NSGD in case they 
establish a one stop check-out. 

♦WRITTEN BY : Kevin Albert Bianchi 
♦LAST CHANGED: 20 AUG 93 

SET TALK OFF 
SET ESCAPE OFF 
SET CENTURY ON 

* Allows for 21ST century values in dates. 

USE New_Data ORDER command 

* use the new_data DBF with the command multiple index 
GO TOP 

* Set record pointer at the beginning of the DBF. 

SET PRINTER ON 

PUBLIC report_date, wrong_input next_PF, next_PPD, next_YF, 
next_TD,; next_TYP, ptitle, mpririt, snext_PE, title, 
act_phys,; act_blood, act_G6PD, act_sikcel, actjppd, 
act_yf, act_td, act_typ,; mlineno, good_report, 
report_day, report_month, report__year,; mpageno, nplength, 
selection, command_report 

* Declares variables global. 

* Variable Initialized 
jpageno = 1 

mprint = .T. 
report_month = SPACE(2) 
report_day = 0 
report_year = 0 
wrong_input * 0 
report_date * {} 
good_report = SPACE(1) 
next_PE = {} 
next_PPD = } 

next_YF = r 
next_TD = {} 
next_TYP = {} 
mlineno = 0 
mplength = 60 
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onpageno - 1 

cotnmand_report - SPACE (4) 
selection « SPACE(1) 

* Variables Initialized 

DO WHILE UPPER(good_report) <> "Y" 

• 5,10 SAY "This report will list the personnel who are due 
for medical" 

• 6,14 SAY "action prior to the date you enter on this 
screen." 

9 7,10 SAY "It will list only those who are marked for 
deletion from the" 

• 8,18 SAY "command you select later In this program." 

DO WHILE wrong_lnput < 1 .OR. wrong_lnput >31 

9 10,20 SAY "Enter the day of the month of this report." 
9 12,6 SAY "***Enter the leading zero If value Is 1-9 
(I.E. For 1 Jan ENTER 01)." 

9 15,35 get report_day PICTURE "®Z 99" 

READ 

* Query the user for the cut off day of this report. 

wrong_lnput = report_day 

IF wrong_lnput < 1 .OR. wrong_lnput > 31 

® 17,5 SAY "Incorrect Input, the number entered must 
be a value between 1 and 31." 

® 18,25 SAY "Press ENTER and try again." 

READ 

ENDIF 

* message put to the screen If the value entered for day 
Is Invalid 

CLEAR 

ENDDO 

• Loops until proper day value Is Input. 

® 10,4 SAY "Select the number equal to the month of your 
report and press return." 

® 18,35 GET report_month PICTURE "@M 

01,02,03,04,05,06,07,08,09,10,11,12”; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select." 
READ 
CLEAR 

• Query the user for the first month of the report 
(multiple choice). 

wrong_lnput * 0 

DO WHILE wrong_lnput < YEAR(DATE()) 

® 5,10 SAY "Enter the year which contains the month of 
this report." 

® 7,11 SAY "***Enter all four numbers (I.E. For 1993 
ENTER 1993)." 
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* 12,35 get report_year PICTURE "9Z 9999" 

READ 

* Query the user for the year of the first month of the 
report. 

wrong_input * report_year 
IF wrong_input < YEAR(DATE{)) 

9 15,18 SAY "Incorrect input, the number entered must 
be" 

• 16,18 SAY "a value greater than the current year's 
date." 

9 18,25 SAY "Press ENTER and try again." 

READ 

ENDIF 

CLEAR 

* Message put to screen if the value for the year is too 
small. 

ENDDO 

* Loops until proper year data is input. 


report_date = CTOD(RIGHT(STR(report_day),2) + "/" + 

report_month + "/"+RIGHT(STR(report_year),2)) 

* report_date is the date of the report 

9 5,18 SAY "The date of the report you selected is:" 

9 7,32 SAY DTOC(report_date) 

9 9,13 SAY "If this Ts ■ rrect lelect 'Y' (for yes) to 
continue." 

9 10,7 SAY "If not select 'N' (for no) to re-initiate the 
date of this report." 

9 12,35 GET good_report PICTURE "@M Y,N"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 

READ 

CLEAR 

* Final C[uery to ensure the proper date was input prior to 
printing report. 

ENDDO 


9 5,6 SAY "This report displays readiness data for records 
marked for deletion." 

9 7,15 SAY "Select the command for which this report is 
needed." 

9 10,34 GET command_report PICTURE " 0 M NPGS,NSGD,MCD"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 
READ 
CLEAR 

ptitle » "ONE STOP CHECK-OUT MEDICAL READINESS REPORT FOR " + 
UPPER(command report) 
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* Title declared after variable conniand_report assigned a 
value. 

9 5,10 SAY "Do you want this report printed or put to the 
screen?" 

@7,17 SAY "Select 'P' for print or 'S' for screen." 

@ 10,35 GET selection PICTURE "«M P,S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 
READ 
CLEAR 

* Assigns a value to selection which determines a print or a 
put to screen. 

IF selection ■ "P" 

PRINTJOB 
DO RED_PgHd 

* Calls page header program 

DO WHILE .NOT. EOF() 

IF command = command_report 

* Locates the records of the selected commands. 

DO WHILE command = command_report 

* Only the selected command's records searched for 
deletion mark. 

IF mlineno = mplength 
mlineno = 0 
EJECT PAGE 
DO RED_PgHd 
ENDIF 

* Line # count to zero, page advanced, and page 
header program called. 

IF DELETED 0 = .T. 

DO PHYS_DUE 

IF snext_PE <= report_date 
act_phys = "DUE" 

ELSE 

act_phys = "" 

ENDIF 

* Determines if physical is due during the date 
of this report. 

IF UPPER(blood) = "DUE" 
act_blood = "DUE" 

ELSE 

act_blood = "" 

ENDIF 

* Determines if blood type is unknown. 

IF UPPER(G6PD) = "DUE" 
act_G6PD - "DUE" 

ELSE 
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act_G6PD » 

ENDIF 

* Determines if 66PD is due during the date of 
this report. 

IF UPPER (sicklecell) •= "D" 
act_SC « "DUE" 

ELSE 

act_SC - "" 

ENDIF 

* Determines if sickle cell is due during the 
date of this report- 

DO PPD_DUE 

IF next_PPD <« report_date 
•AND. next_PPD > {01/01/1912} 

* Lower limit of 01/01/1912 is due to the fact 

* that 11/11/11 is a temporary code date for a 

* allergic reaction and 12/12/12 is tenporary 
code date for immunization is due when data was 
entered. 

act_PPD = "DUE" 

ELSE 

act_PPD = "" 

ENDIF 

* Determines if PPD is due during the date of 
this report. 

DO YF_DUE 

IF next_YF <* report_date 
.AND. next_YF > {01/01/1912} 
act_YF « "DUE" 

ELSE 

act_YF = "" 

ENDIF 

* Determines if yellow fever is due during the 
date of this report. 

DO TD_DUE 

IF next_TD <= report_date 
.AND. next_TD > {01/01/1912} 
act_TD = "DUE" 

ELSE 

act_TD = "" 

ENDIF 

* Determines if tetanus is due during the date 
of this report. 

DO TYP_DUE 

IF next_TYP <== report_date 
.AND. nextTYP > {01/01/1912}; 
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•OR. BSC - .F. 

act_TYP - "DUE" 

ELSE 

act_TYP - "" 

BNDIF 

* Determines if typhoid is due during the date 
of this report. 

IF act_phys = "DUE" .OR. act_blood * "DUE" 

.OR. act_G6PD - "DUE"; 

.OR. act_SC = "DUE" .OR. act_PPD » "DUE" 

.OR. act_yF - "DUE"; 

.OR. act_TD = "DUE" .OR. act_TYP - "DUE" 

DO TITLE 
DO RED_DATA 

* Prints readiness information for everyone 
marked for deletion who has at least one field 
requiring medical action. 

ENDIF 

SKIP 

ENDDO 

ENDIF 

SKIP 

ENDDO 

* Loop until EOF marker is retrieved. 

EJECT PAGE 

ENDPRINTJOB 

ELSE 

DO PRN_SCRN 

* Procedure to prepare print variadsles for a put to the 
screen. 

PRINTJOB 
DO RED_ScHd 

* Calls the page header program for a put to screen 
DO WHILE .NOT. EOF() 

IF command = command_report 

* Locates the records of the selected commands. 

DO WHILE command = command_report 

* Only the selected command's records searched for 
deletion mark. 

IF _plength = mlineno 
mlineno = 0 
EJECT PAGE 
DO RED_ScHd 
ENDIF 

* Line # count to zero, page advanced, and page 
header progreun called. 

IF DELETED 0 = .T. 

DO PHYS_DUE 

IF snext_PE <= report_date 
act_phys = "DUE" 
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ELSE 

act_phys « 

ENDIF 

* Determines if physical is due during the date 
of this report. 

IF UPPER(blood) « "DUE" 
act_blood - "DUE" 

ELSE 

act_blood = "" 

ENDIF 

* Determines if blood type is un)cnown. 

IF UPPER(G6PD) = "DUE" 
act_G6PD = "DUE" 

ELSE 

act_G6PD = "" 

ENDIF 

* Determines if G6PD is due during the date of 
this report. 

IF UPPER(sicklecell) = "D" 
act_SC = "DUE" 

ELSE 

act_SC = "" 

ENDIF 

* Determines if sickle cell is due during the 
date of this report. 

DO PPD_DUE 

IF next_PPD <= report_date 
.AND, next_PPD > {01/01/1912} 

* Lower limit of 01/01/1912 is due to the fact 
that 11/11/11 is a temporary code date for 
allergic reaction and 12/12/12 is a temporary 

* code date for immunization is due when data 
was entered. 

act_PPD = "DUE" 

ELSE 

act_PPD = "" 

ENDIF 

* Determines if PPD is due during the date of 
this report. 

DO YF_DUE 

IF next_YF <* report_date 
.AND. next_YF > {01/01/1912}; 

.OR. BSC * .F. 

act_YF = "DUE" 

ELSE 
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act_yF » 

BNDIF 

* Determines if yellow fever is due during the 
date of this report. 

DO TD_DUE 

IF next_TD <= report_date 
•AND. next_TD > {01/01/1912} 
act_TD = "DUE" 

ELSE 

act_TD = "" 

ENDIF 

* Determines if tetanus is due during the date 
of this report. 

DO TYP_DUE 

IF next_TYP <= report_date 
.AND. next_TYP > {01/01/1912} 
act_TYP = "DUE" 

ELSE 

act_TYP = "" 

ENDIF 

* Determines if typhoid is due during the date 
of this report. 

IF act_phys = "DUE" .OR. act_blood = "DUE" 
.OR. act_G6PD = "DUE"; 

.OR. act_SC = "DUE" .OR. act_PPD = "DUE" 

.OR. act_YF = "DUE"; .OR. act TD * "DUE" 

.OR. act_TYP = "DUE" 

DO TITLE 
DO RED_DATA 
ENDIF 

* Prints readiness information for everyone 
marked for deletion who has at least one field 
requiring medical action. 

ENDIF 

SKIP 

ENDDO 

ENDIF 

SKIP 

ENDDO 

* Loop until EOF marker is retrieved. 

EJECT PAGE 
ENDPRINTJOB 
ENDIF 

SET ESCAPE ON 
SET CENTURY OFF 
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♦PROGRAM 

NAME: 

READINES 

♦PURPOSE 


This is a report which displays 

* 

1. 

Name 

* 

2. 

Rank(title) 

* 

3. 

SSN 

* 

4. 

Medical Action Required 


♦ for personnel who are due for at least on of the 
following immunizations, physical exam and blood type 

♦ --The progrcun will query the individual for the period 

♦ of the report. 

♦ --Individuals are grouped by their command. 

♦WRITTEN BY : Kevin Albert Bianchi 

♦LAST CHANGED: 9 JUL 93 

SET TALK OFF 
SET ESCAPE OFF 
SET CENTURY ON 

♦ Allows for 21ST century values for year. 

USE New_Data ORDER command 

♦ use the new_data DBF with the command multiple index 
GO TOP 

♦ Set record pointer at the beginning of the DBF. 

SET PRINTER ON 

PUBLIC begin_date, final_date, begin_date, final_date, 
wrong_input, next_PE,; next_PPD, next_YF, next__TD, 
next_TYP, ptitle, mprint, mcommand,; snext_PE, title, 
act_phys, act_blood, act_G6PD, acts^kcel, act_ppd,; 
act_yf, act_td, act_typ, mlineno, final_titledate, 
good_report,; mpageno, mplength, selection 

♦ Declares varicJoles global. 

♦ Variable Initialized 
_pageno = 1 
mcommand = "" 

mprint = .T. 
begin_month = SPACE(2) 
final_month = SPACE(2) 
begin_year = 0 
final_year = 0 
wrong_input = 0 
begin_date = {} 
final_date =0 
final_titledate = {} 
good_report = SPACE(1) 
next_PE = {} 
next_PPD = {} 
next_yF = n 
next_TD = {} 
next_TYP = {} 
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mlineno « 0 
mplength - 60 
mpageno - l 
selection - SPACE(1) 

* VaricUsles initialized 

DO WHILE UPPER(good_report) <> "Y" 

® 5,5 SAY "This report will list the personnel who are due 
for medical action." 

9 10,1 SAY "Select the number equal to the first month of 
your report and press return." 

9 18,35 GET begin_month PICTURE "9M 

01,02,03,04,05,06,07,08,09,10,11,12"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select." 
READ 
CLEAR 

* Query the user for the first month of the report 
(multiple choice). 

wrong_input = 0 

DO WHILE wrong_input < YEAR(DATE()) 

9 5,10 SAY "Enter the year which contains the first 
month of this report." 

9 7,14 SAY "***Enter all four numbers (I.E. For 1993 
ENTER 1993)." 

9 12,35 get beginyear PICTURE "9Z 9999" 

READ 

* Query the user for the year of the first month of the 
report. 

wrong_input = begin_year 
IF wrong_input < YEAR(DATE()) 

9 15,18 SAY "Incorrect input, the number entered must 
be" 

9 16,18 SAY "a value greater than the current years 
date." 

9 18,25 SAY "Press ENTER and try again." 

READ 

CLEAR 

ENDIF 

CLEAR 

* Message put to screen if the value for the year is too 
small. 

ENDDO 

* Loops until proper year data is input. 

9 10,1 SAY "Select the nximber equal to the final month of 
your report and press return." 

9 18,35 GET final_month PICTURE "9M 

01,02,03,04,05,06,07,08,09,10,11,12"; 
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MESSAGE "Press SPACEBAR to scroll, ENTER to select.” 
READ 
CLEAR 

♦ Query the user for the year of the final month of the 
report. 

wrong_input = 0 

DO WHILE wrong_input < YEAR(DATE()) 

9 5,10 SAY "Enter the year which contains the last month 
of this report." 

e 7,14 SAY "♦♦♦Enter all four numbers (I.E. For 1993 
ENTER 1993) . " 

9 12,35 get final_year PICTURE "9Z 9999" 

READ 

wrong_input = final_year 
IF wrong_input < YEAR(DATE()) 

9 15,18 SAY "Incorrect input, the number entered 
must" 

9 16,18 SAY "be a value greater than the current 
year." 

9 18,25 SAY "Press ENTER and try again." 

READ 

CLEAR 

ENDIF 

CLEAR 

ENDDO 

♦ Loops until proper year data i'*? inonf. 

begin_date » CTOD("01/" + begin_month + "/" + 

RIGHT(STR(begin__year) ,2)) 

final_titledate = CT0D("28/" + final_month + ”/" + 

RIGHT(STR(final_year),2)) 

final_date = CTOD("01/" + STR{VAL{final_month)+1,2) + "/"; 
+ RIGHT(STR(final_year),2)) 

ptitle = "MEDICAL READINESS REPORT FOR " + 

UPPER(CMONTH(begin_date)); 

+ " THROUGH " + UPPER(CMONTH(final_titledate)) 

♦ begin_date is the initial date of the report 

♦ final_titledate is the final date of the report used in 
the title (the day value is not valid only the month is 
used). 

♦ final_date is the first day after the final date, used 
for computations. 

9 5,17 SAY "The dates of the report you selected are:" 

9 7,24 SAY DTOC (begin_date) + " through to " + 
DTOC(final_date) 

9 9,13 SAY "If this is correct select 'Y' (for yes) to 
continue." 
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• 10,7 SAY "If not select 'N' (for no) to re-initiate the 
date of this report." 

• 12,35 GET good_report PICTURE "®M Y,N"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 

READ 

CLEAR 

• Final query to ensure the proper date was input prior to 
printing report. 

ENDDO 

® 5,10 SAY "Do you want this report printed or put to the 
screen?" 

@7,17 SAY "Select 'P' for print or 'S' for screen." 

® 10,35 GET selection PICTURE "@M P,S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 
READ 
CLEAR 

* Assigns a value to selection which determines a print or a 
put to screen. 

IF selection = "P" 

PRINTJOB 
DO RED_PgHd 
DO WHILE .NOT. EOF() 

MCOMMAND = COMMAND 
mcount = 0 

DO WHILE COMMAND = MCOMMAND 
IF mlineno = mplength 
mlineno = 0 
EJECT PAGE 
DO RED_PgHd 
DO RED_Cinnd 
ENDIF 

* Full page is advanced, line # count to zero and 
header programs called. 

DO PHYS_DUE 

IF snext_PE >= begin_date .AND. snext_PE < final_date 
act_phys = "DUE" 

ELSE 

act jphys = "" 

ENDIF 

* Determines if physical is due during the date of 
this report. 

IF UPPER(blood) = "DUE" 
act_blood = "DUE" 

ELSE 

act_blood =s "" 

ENDIF 

* Determines if blood type is unJoiown. 
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IF UPPER(G6PD) - -DUE" 
act_G6PD - "DUE" 

ELSE 

act_G6PD » "" 

ENDIF 

* Determines if G6PD is due during the date of this 
report. 

IF UPPER{sicklecell) - "D" 
act_SC - "DUE" 

ELSE 

act_SC - "" 

ENDIF 

* Determines if sickle cell is due during the date of 
this report. 

DO PPD_DUE 

IF next_PPD >» begin_date 
•AND. next_PPD < final date; 

.OR. next_PPD - {12/1271912} 

* The condition next_PPD « (12/12/1912} is a result 
of a ten^orary 

* data entry code date in which 12/12/12 represents 
the Immunization 

* is due all future data entry will be the date 
completed. 

act_PPD - "DUE" 

ELSE 

act_PPD = "" 

ENDIF 

* Determines if PPD is due during the date of this 
report. 

DO YF_DUE 

IF next_YF >= begin date .AND. next_YF < final_date; 
.OR. next_YF = {12/12/1912} 
act_YF = "DUE" 

ELSE 

act_YF = "" 

ENDIF 

* Determines if yellow fever is due during the date 
of this report. 

DO TD_DUE 

IF next_TD >= begin date .AND. next_TD < final_date; 
.OR. next_TD = {12^2/1912} 
act_TD = "DUE" 

ELSE 

act_TD = "" 

ENDIF 
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* Determines If tetanus is due during the date of 
this report. 

DO TYP_DUE 

IF next_Typ >- begin_date 
.AND. next_TYP < final_date; 

.OR. BSC « .F. .OR. next_TYP - {12/12/1912} 
act_TYP - "DUE" 

ELSE 

act_TYP = "" 

ENDIF 

* Determines if typhoid is due during the date of 
this report. 

IF act_phys = "DUE" .OR. act_blood = "DUE" 

.OR. act_G6PD - "DUE"; 

.OR. act_SC = "DUE" .OR. act__PPD - "DUE" 

.OR. act_YF = "DUE"; 

.OR. act_TD » "DUE" .OR. act_TYP = "DUE" 
mcount = mcount + 1 
IF mcount = 1 
DO RED_Cmnd 
ENDIF 

* When mcount is 1 a new command header is 
printed. 

DO TITLE 
DO RED_DATA 
ENDIF 

* Prints readiness information for everyone who 

* has at least one field requiring medical action. 
SKIP 

ENDDO 

* Loop while command does not change. 

ENDDO 

* Loop until EOF marker is retrieved. 

EJECT PAGE 

ENDPRINTJOB 

ELSE 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to the 
screen. 

PRINTJOB 
DO RED_ScHd 
DO WHILE .NOT. EOF() 

IF _plength = mlineno 
mlineno » 0 
EJECT PAGE 
DO RED_ScHd 
ENDIF 

* Full page is advanced, line # count to zero and header 
progreuns called. 





DO PHYS_DUB 

IF snext_PE >- begin_date 
.AND. 8next_PE < final_date 
act_phys - "DUE" 

ELSE 

actjphys - "" 

ENDIF 

* Determines if physical is due during the date of this 
report. 

IF UPPER(blood) - "DUE" 
act_blood - "DUE" 

ELSE 

act_blood « "" 

ENDIF 

* Determines if blood type is unknown. 

IF UPPER(G6PD) - "DUE" 

act_G6PD - "DUE" 

ELSE 

act_G6PD - "" 

ENDIF 

* Determines if G6PD is due during the date of this 
report. 

IF UPPER(sicklecell) - "D" 
act_SC = "DUE" 

ELSE 

act_SC - "" 

ENDIF 

* Determines if sickle cell is due during the date of 
this report. 

DO PPD_DUE 

IF next_PPD >= begin_date .AND. next_PPD < final_date; 
.OR. next_PPD » {12/12/1912} 

* The condition next_PPD = {12/12/1912} is a result 
of a tertporary 

* data entry code date in which 12/12/12 represents 
the immunization 

* is due all future data entry wil 1 be the date 
con^leted. 

act_PPD = "DUE" 

ELSE 

act_PPD = "" 

ENDIF 

* Determines if PPD is due during the date of this 
report. 

DO YF_DUE 

IF next_YF >= begin_date .AND. next_YF < final_date; 
.OR. next_YF - {12/12/1912} 
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act_YP - "DUE" 

ELSE 

act_YP » "" 

ENDIP 

* Determines if yellow fever is due during the date of 
this report. 

DO TD_DUE 

IP next_TD >■ begin_date .AND. next_TD < final_date; 
.OR. next_TD - {12/12/1912} 
act_TD - "DUE" 

ELSE 

act_TD - "" 

ENDIP 

* Determines if tetanus is due during the date of this 
report. 

DO TYP_DUE 

IP next_TYP >= begin_date .AND. next_TYP < final_date; 
.OR. BSC » .P. .OR. next_TYP - {12/12/1912} 
act_TYP - "DUE" 

ELSE 

act_TYP - "" 

ENDIP 

* Determines if typhoid is due during the date of this 
report. 

IP act_phys = "DUE" .OR. act_blood * "DUE" 

.OR. act_G6PD - "DUE"; .OR. act_SC » "DUE" 

.OR. act_PPD » "DUE" .OR. act_YP - "DUE"; 

.OR. act_TD = "DUE" .OR. act_TYP = "DUE" 

DO TITLE 
DO RED_DATA 
ENDIP 

* Prints readiness information for everyone who 

* has at least one field requiring medical action. 

SKIP 

ENDDO 

* Loop until EOF marker is retrieved. 

EJECT PAGE 

ENDPRINTJOB 
DO PRN_RTRN 

* Procedure to return print variables to their original 
values. 

ENDIP 

SET CENTURY OFF 
SET ESCAPE ON 
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* PROGRAM NAME: READINS2 

♦PURPOSE : This is a report which displays: 

* 1. Name 

* 2. Rank(title) 

* 3. SSN 

* 4. Medical Action Required 

* of personnel who are due for at least one of the 
following immunizations, physical excun and blood type. 

* --The program will query the user for the date of the 

* report and all medical action due prior to that date 

* will be printed. 

* --Individuals are grouped by their command. 

♦WRITTEN BY : Kevin Albert Bianchi 

♦LAST CHANGED: 27 JUL 93 

SET TALK OFF 
SET ESCAPE OFF 
SET CENTURY ON 

* Allows for 21ST century values in dates. 

USE New_Data ORDER command 

* use the new_data DBF with the command multiple index 
GO TOP 

* Set record pointer at the beginning of the DBF. 

SET PRINTER ON 

PUBLIC report_date, wrong_input, next_PE, next_PPD, next_YF, 
next_TD,; next_TYP, ptitle, mprint, mcommand, snext_PE, 
title, act_phys,; act_blood, ar!:_v7CPD, act_sikcel, actjppd, 
act_yf, act__td, act_typ,; mlineno, good_report, report_day, 
report_month, report_year,; mpageno, n^length, selection 

* Declares variables global. 

* VariedJle Initialized 
_pageno = l 
mcommand = "" 

mprint = .T. 
report_month = SPACE(2) 
report_day = 0 
report_jyear = 0 
wrong_input = 0 
report_date » {} 
good_report = "N" 
next_PE * {^ 
next_PPD = {} 
next_YF = r 
next_TD = { 
next_TYP = } 

mlineno = 0 
nqplength = (^0 
nqpageno = 1 
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selection « SPACE(1) 

* Variables initialized 

DO WHILE UPPER{good_report) <> "Y" 

• 5,10 SAY "This report will list the personnel who are due 
for medical" 

• 6,12 SAY "action prior to the date you enter here on this 
screen." 

DO WHILE wrong_input < 1 .OR. wrong_input >31 

9 10,20 SAY "Enter the day of the month of this report." 
9 12,6 SAY "***Enter the leading zero if value is 1-9 
(I.E. For 1 Jan ENTER 01)." 

* 15,35 get report_day PICTURE "«Z 99" 

READ 

* Query the user for the cut off day of this report. 

wrong_input = report_day 

IF wrong_input < 1 .OR. wrong_input >31 

® 17,5 SAY "Incorrect input, the number entered must 
be a value between 1 and 31." 

9 18,25 SAY "Press ENTER and try again." 

READ 

ENDIF 

* message put to the screen if the value entered for day 
is invalid 

CLEAR 

ENDDO 

* Loops until proper day value is input. 

9 10,4 SAY "Select the number equal to the month of your 
report and press return." 

9 18,35 GET report_month PICTURE "«M 

01,02,03,04,05,06,07,08,09,10,11,12"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select." 
READ 
CLEAR 

* Query the user for the month of the report (multiple 
choice). 

wrong_input = 0 

DO WHILE wrong_input < YEAR(DATE()) 

0 5,10 SAY "Enter the year which contains the month of 
this report." 

0 7,11 SAY "***Enter all four numbers (I.E. For 1993 
ENTER 1993)." 

0 12,35 get report_year PICTURE "0Z 9999" 

READ 

* Query the user for the year of the first month of the 
report. 
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wrong_input » report_year 
IF wrong_input < YBAR(DATE()) 

9 15,18 SAY "Incorrect input, the number entered must 
be" 

• 16,18 SAY "a value greater than the current year's 
date." 

9 18,25 SAY "Press ENTER and try again." 

READ 

ENDIP 

CLEAR 

* Message put to screen if the value for the year is too 
small. 

ENDDO 

* Loops until proper year data is input. 


report_date = CTOD(RIGHT{STR(report_day),2) + "/" + 
report_month + "/" + RIGHT(STR(report_year),2)) 

ptitle = "MEDICAL READINESS REPORT FOR " + 

DTOC(report_date) 

* report_date is the date of the report 

® 5,18 SAY "The date of the report you selected is;" 

9 7,32 SAY DTOC(report_date) 

9 9,13 SAY "If this is correct select 'Y' (for yes) to 
continue." 

« 10,7 SAY "If not se] ct 'N' (for no) to re-initiate the 
date of this report." 

9 12,35 GET good_report PICTURE "@M Y,N"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 

READ 

CLEAR 

* Final query to ensure the proper date was input prior to 
printing report. 

ENDDO 

9 5,10 SAY "Do you want this report printed or put to the 
screen?" 

9 7,17 SAY "Select 'P' for print or 'S' for screen." 

9 10,35 GET selection PICTURE "®M P,S"; 

MESSAGE "Press SPACEBAR to scroll and ENTER to select" 
READ 
CLEAR 

* Assigns a value to selection which determines a print or a 
put to screen. 

IF selection = "P" 

PRINTJOB 
DO RED_PgHd 
DO WHILE .NOT. EOF() 
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MCOIMAND « COMMAND 
mcount - 0 

DO WHILE COMMAND - MCOMMAND 
IP mlineno - n^)length 
mlineno » 0 
EJECT PAGE 
DO RED_PgHd 
DO RED_Cmnd 
ENDIF 

* Full page is advanced, line # count to zero and 
header progreuns called. 

DO PHYS_DUE 

IF snext_PE <« report_date 
act_phys * "DUE" 

ELSE 

act_phys - "" 

ENDIF 

** Determines if physical is due during the date of 
this report. 

IF UPPER(blood) = "DUE" 
act_blood - "DUE" 

ELSE 

act_blood = "" 

ENDIF 

* Determines if blood type is unknovm. 

IF UPPER(G6PD) « "DUE" 
act_G6PD = "DUE" 

ELSE 

act_G6PD = "" 

ENDIF 

* Determines if G6PD is due during the date of this 
report. 

IF UPPER(sicklecell) * "D" 
act_SC = "DUE" 

ELSE 

act_SC = "" 

ENDIF 

* Determines if sickle cell is due during the date of 
this report. 

DO PPD_DUE 

IF next_PPD <= report_date 
.AND. next_PPD > {01/01/1912} 

* Lower limit of 01/01/1912 is due to the fact that 
11/11/11 is a 

* temporary code date for allergic reaction and 
12/12/12 is a ten^orary 
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* code date for immunization is due when data was 
entered. 

act_PPD « "DUE" 

ELSE 

act_PPD a "" 

ENDIF 

* Determines if PPD is due during the date of this 
report. 

DO YF_DUE 

IF next_YF <« report_date 
.AND. next_YF > {01/01/1912} 
act_YF » "DUE" 

ELSE 

act_YF = "" 

ENDIF 

* Determines if yellow fever is due during the date 
of this report. 

DO TD_DUE 

IF next_TD <= report_date 
.AND. next_TD > {01/01/1912} 
act_TD = "DUE" 

ELSE 

act_TD = "" 

ENDIF 

* Determines if tetanus is due during the date of 
this report. 

DO TYP_DUE 

IF next_TYP <= report_date 

.AND. next_TYP > {01/01/1912} .OR. BSC = .F. 

act_TYP * "DUE" 

ELSE 

act_TYP = "" 

ENDIF 

* Determines if typhoid is due during the date of 
this report. 


IF actphys - 

"DUE" .OR. 

act_ 

blood 

= "DUE 

.OR. 

act_G6PD 

a "DUE"; 




.OR. 

act SC = 

"DUE" .OR. 

act_ 

PPD = 

"DUE" 

.OR. 

act_YF » 

"DUE"; 




.OR. 

act TD - 

"DUE" .OR. 

act 

TYP - 

"DUE" 


mcount = mcount + 1 
IF mcount » 1 
DO RED_Cmnd 
ENDIF 

* When mcount is 1 a new command header is 
printed. 

DO TITLE 
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DO RED DATA 
ENDIF 

* Prints readiness information for everyone who 

* has at least one field requiring medical action. 
SKIP 

ENDDO 

* Loop while command does not change. 

ENDDO 

* Loop until EOF marker is retrieved. 

EJECT PAGE 

ENDPRINTJOB 

ELSE 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to the 
screen. 

PRINTJOB 
DO RED_ScHd 
DO WHILE .NOT. EOF() 

IF _plength =« mlineno 
mlineno = 0 
EJECT PAGE 
DO RED_ScHd 
ENDIF 

* Full page is advanced, line # count to zero, screen 
headers called. 

DO PHYS_DUE 

IF snext__PE <= report_date 
act_phys * "DUE" 

ELSE 

act jphys = "" 

ENDIF 

* Determines if physical is due during the date of this 
report. 

IF UPPER(blood) = "DUE" 
act_blood = "DUE" 

ELSE 

act_blood = "" 

ENDIF 

* Determines if blood type is unknown. 

IF UPPER(G6PD) = "DUE" 
act_G6PD = "DUE" 

ELSE 

act_G6PD = "" 

ENDIF 

* Determines if G6PD is due during the date of this 
report. 

IF UPPER(sicklecell) = "D" 
act_SC = "DUE" 

ELSE 
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act_SC - "" 

ENDIF 

* Determines if sickle cell is due during the date of 
this report. 

DO PPD_DUE 

IF next_PPD <» report date .AND. next_PPD > {01/01/1912} 

* Lower limit of Ol7oi/l912 is due to the fact that 
11/11/11 is a 

* temporary code date for allergic reaction and 12/12/12 
is a temporary code date for immunization is due when 
data was entered. 

act_PPD = "DUE" 

ELSE 

act_PPD = "" 

ENDIF 

* Determines if PPD is due during the date of this 
report. 

DO YF_DUE 

IF next_YF <= report_date .AND. next_YF > {01/01/1912} 
act_YF = "DUE" 

ELSE 

act_YF = "" 

ENDIF 

* Determines if yellow fever is due during the date of 
this report. 

DO TD_DUE 

IF next_TD <* report_dar.e .AND. next_TD > {01/01/1912} 
act_TD = "DUE" 

ELSE 

act_TD = "" 

ENDIF 

* Determines if tetanus is due during the date of this 
report. 

DO TYP_DUE 

IF next_TYP <= report_date .AND. next_TYP > {01/01/1912} 
.OR. BSC = .F. 

act_TYP = "DUE" 

ELSE 

act_TYP = "" 

ENDIF 

* Determines if typhoid is due during the date of this 
report. 

IF act_phys = "DUE" .OR. act_blood = "DUE" 

.OR. act_G6PD = "DUE"; 

.OR. act SC - "DUE" .OR. act_PPD = "DUE" 

.OR. act~YF = "DUE"; 
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.OR. act_TD » "DUE" .OR. act_TYP - "DUE" 

* When mcount Is 1 a new command header is printed. 

DO TITLE 
DO RED_DATA 
ENDIF 

* Prints readiness information for everyone who 

* has at least one field requiring medical action. 

SKIP 

ENDDO 

* Loop until EOF marker is retrieved. 

ENDPRINTJOB 

DO PRN_RTRN 

* Procedure to return print variables to their original 
values. 

ENDIF 

SET ESCAPE ON 
SET CENTURY OFF 


*PROGRAM NAME 
♦PURPOSE 

* 

* 

* 

* 

* 


READINS3 

This is a report which displays: 

1. Ncune 

2. Rank(title) 

3. SSN 

4. Medical Action Required 
of personnel who are due for at least one of the 
following immunizations, physical exam and blood type. 
--The program will query the user for the date of the 
report and all medical action due prior to that date 
will be printed. 

- - For individual curriculxims. 

* --Individuals are grouped by their command. 

♦WRITTEN BY ; Kevin Albert Bianchi 
♦LAST CHANGED: 30 JUL 93 


SET TALK OFF 
SET ESCAPE OFF 
SET CENTURY ON 

♦ Allows for 21ST century values in dates. 

USE New_Data ORDER command 

♦ use the new_data DBF with the command multiple index 
GO TOP 

♦ Set record pointer at the beginning of the DBF. 

SET PRINTER ON 

PUBLIC report_date, wrong_input, next_PE, next_PPD, next_YF, 
next_TD,; next_TYP, ptitle, mprint, mcommand, snext_PE, 
title, act_phys,; act_blood, act_G6PD, act_sikcel, act_ppd. 
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act_yf, act_td, act_typ,; mlineno, good_report, report_day, 
report_month, report^year,; mpageno, nplength, curric_code, 
curric_name, selection 

* Declares varied>les global. 

* VariodDle Initialized 
_pageno = l 
curric_code = SPACE(2) 
report_month « SPACE(2) 
report_day - 0 
report_year « 0 
wrong_input « 0 
report_date - {} 
good_report » "N" 
next_PE * {} 
next_PPD ■ {} 
next_YF - 

next_TD = {} 
next_TYP = {} 
mlineno » 0 
nqplength = 60 
mpageno l 
selection «= SPACE (1) 

* Variables initialized 

DO WHILE UPPER(good_report) <> "Y" 

0 5,10 SAY "This report will list the personnel who are due 
for medical" 

0 6,12 SAY "action prior to the date you enter here on this 
screen." 

DO WHILE wrong_input < 1 .OR. wrong_inpui: >31 

0 10,20 SAY "Enter the day of the month of this report." 
0 12,6 SAY "***Enter the leading zero if value is 1-9 
(I.E. For 1 Jan ENTER 01)." 

0 15,35 get report_day PICTURE "0Z 99" 

READ 

* Query the user for the cut off day of this report. 

wrong_input = report_day 

IF wrong_input < 1 .OR. wrong_input > 31 

0 17,5 SAY "Incorrect input, the n\imber entered must 
be a value between 1 and 31." 

0 18,25 SAY "Press ENTER and try again." 

READ 

ENDIF 

* message put to the screen if the value entered for day 
is invalid 

CLEAR 

ENDDO 

* Loops until proper day value is input. 
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* 10,4 SAY "Select the niimber equal to the month of your 
report and press return." 

* 18,35 GET report_month PICTURE "•M 
01,02,03,04,05,06,07,08,09,10,11,12"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select." 
READ 
CLEAR 

* Query the user for the first month of the report 
(multiple choice). 

wrong_input » 0 

DO WHILE wrong_input < YEAR(DATE()) 

9 5,10 SAY "Enter the year which contains the month of 
this report." 

9 7,14 SAY "***Enter all four niimbers (I.E. For 1993 
ENTER 1993) . " 

9 12,35 GET report_year PICTURE "9Z 9999" 

READ 

* Query the user for the year of the first month of the 
report. 

wrong_input = report_year 
IF wrong_input < YEAR(DATE()) 

9 15,18 SAY "Incorrect input, the number entered must 
be" 

9 16,18 SAY "a value greater than the current year's 
date." 

9 18,25 SAY "Press ENTER and try again." 

READ 

ENDIF 

CLEAR 

* Message put to screen if the value for the year is too 
small. 

ENDDO 

* Loops until proper year data is input. 

9 5,11 SAY "Select the curriculum or department code for 
this report." 

9 7,19 SAY "The final option, 04, is for NPGS staff." 

9 10,35 GET curric_code PICTURE "9M 

30,31,32,33,3A,34,35,36,37,38,39,04"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select." 
READ 
CLEAR 

* Query user for curriculum or department code. Can be 
expanded for other 

* commands if division information is maintained for data. 

report_date = CTOD(RIGHT(STR(report_day),2) + "/" + 

report_month + "/"; + RIGHT(STR(report_year),2)) 
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DO CODE_NAM 

ptitle - "MEDICAL READINESS REPORT FOR " + 

UPPER(curric_ncune) + " + DTOC(report_date) 

* curric_naxne is the naune of the curriculum returned from 
CODE_NAME 

* report_date is the date of the report 

a 5,18 SAY "The date of the report you selected is:" 
a 6,32 SAY DTOC(report_date) 

a 8,10 SAY "The curriculum you've chosen is " + curric_name 
a 12,18 SAY "Are these report specifications correct?" 
a 14,20 SAY "Select 'Y' for yes or 'N' for no." 
a 16,35 GET good_report PICTURE "aM Y,N"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select" 

READ 

CLEAR 

* Pinal query to ensure the proper date was input prior to 
printing report. 

ENDDO 

a 5,10 SAY "Do you want this report printed or put to the 
screen?" 

a 7,17 SAY "Select 'P' for print or 'S' for screen." 
a 10,35 GET selection PICTURE "ew P,S"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select" 

READ 

CLEAR 

* Assigns a value to selection which determ-ir.es a print or a 
put to screen. 

IF selection = "P" 

PRINTJOB 
DO RED_PgHd 
DO WHILE .NOT. E0F() 

DO WHILE curric_div = curric_code 
IF mlineno = nplength 
mlineno = 0 
EJECT PAGE 
DO RED_PgHd 
DO RED_Cinnd 
ENDIF 

* Full page is advanced, line # count to zero and 
header programs called. 

DO PHYS_DUB 

IF snext_PE <= report date 
act_phys = "DUE" 

ELSE 

act_phys = "' 

ENDIF 
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* Determines if physical Is due during the date of 
this report. 

IF UPPER(blood) - "DUE" 
act_blood - "DUE" 

ELSE 

act_blood • "" 

ENDIF 

* Determines if blood type is unlcnovra. 

IF UPPER{G6PD) - "DUE" 
act_G6PD - "DUE" 

ELSE 

act_G6PD - "" 

ENDIF 

* Determines if G6PD is due during the date of this 
report. 

IF UPPER(sicklecell) - "D" 
act_SC - "DUE" 

ELSE 

act_SC » "" 

ENDIF 

* Determines if sickle cell is due during the date of 
this report. 

DO PPD_DUE 

IF next_PPD <» report_date 
.AND. next_PPD > {01/01/1912} 

* The fact that 11/11/11 is a temporary code date for 
allergic reaction and 12/12/12 is a tertqporary code 
date for immunization 

* is taken care of in the called progremi, same for 
other shots. 

act_PPD = "DUE" 

ELSE 

act_PPD = "" 

ENDIF 

* Determines if PPD is due during the date of this 
report. 

DO YF_DUE 

IF next_YF <= report_date 
.AND. next_YF > {01/01/1912} 
act_YF = "DUE" 

ELSE 

act_YF = "" 

ENDIF 

* Determines if yellow fever is due during the date 
of this report. 
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DO TD_DUB 

IF next_TD <- report_date 
•AND. next_TD > {01/01/1912} 
act_TD - "DUE" 

ELSE 

act_TD - "" 

ENDIF 

* Determines if tetanus is due during the date of 
this report. 

DO TYP_DUE 

IF next_TYP <- report_date 
.AND. next_TYP > {01/01/1912}; 

.OR. BSC » .F. 

act_TYP - "DUE" 

ELSE 

act_TYP - "" 

ENDIF 

* Determines if typhoid is due during the date of 


this report. 

IF act_phys - 

"DUE" .OR. act blood 

- "DUE 

.OR. act_G6PD 

- "DUE"; 


.OR. act_SC » 

"DUE" .OR. act PPD - 

"DUE" 

.OR. act_YF * 

"DUE"; 


.OR. act_TD » 

"DUE" .OR. act TYP = 

"DUE" 

DO TITLE 




DO RED_DATA 
ENDIF 

* Prints readiness information for everyone who 

* has at least one field requiring medical action. 
SKIP 

ENDDO 

* Loop while curric_div does not change. 

SKIP 

ENDDO 

* Loop until EOF marker is retrieved. 

EJECT PAGE 

ENDPRINTJOB 
SET CENTURY OFF 
ELSE 

DO PRN_SCRN 

* Procedure to prepare print variables for a put to screen. 
PRINTJOB 

DO RED_ScHd 
DO WHILE .NOT. EOF() 

DO WHILE curric_div = ci>rr.ic_code 
IF _plength -= mlineno 
mlineno = 0 
EJECT PAGE 
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DO RED_ScHd 
BNDIF 

* Full page is advanced, line # count to zero and 
header programs called. 

DO PHYS_DUE 

IF snext_PE <« report_date 
actjphys ■ "DUE" 

ELSE 

act_phys « "" 

ENDIF 

* Determines if physical is due during the date of 
this report. 

IF UPPER(blood) - "DUE" 
act_blood - "DUE" 

ELSE 

act_blood = "" 

ENDIF 

* Determines if blood type is un)cnown. 

IF UPPER(G6PD) « "DUE" 
act_G6PD = "DUE" 

ELSE 

act_G6PD . "" 

ENDIF 

* Determines if G6PD is due during the date of this 
report. 

IP UPPER(sicklecell) = "D" 
act_SC - "DUE" 

ELSE 

act_SC - "" 

ENDIF 

* Determines if sickle cell is due during the date of 
this report. 

DO PPD_DUE 

IF next_PPD <» report_date 
.AND. next_PPD > {01/01/1912} 

* The fact that 11/11/11 is a ten^orary code date for 
allergic reaction and 12/12/12 is a tenporary code 
date for immunization is taken care of in the called 
program, Scune for other shots. 

act_PPD » "DUE" 

ELSE 

act_PPD « "" 

ENDIF 

* Determines if PPD is due during the date of this 
report. 
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DO yP_DUE 

IP next_YP <- report_date 
.AND. next_YP > {01/01/1912} 
act_YP » "DUE" 

ELSE 

act_YP - "■ 

ENDIP 

* Determines if yellow fever is due during the date 
of this report. 

DO TD_DUE 

IP next_TD <- report_date .AND. next_TD > {01/01/12} 
act_TD - "DUE" 

ELSE 

act_TD - "" 

ENDIP 

* Determines if tetanus is due during the date of 
this report. 

DO TYP_DUE 

IP next_TYP <■ report_date 

.AND. next_TYP > {01/01/12} .OR. BSC - .P. 

act_TYP - "DUE" 

ELSE 

act_TYP - 
ENDIP 

* Determines if typhoid is due during the date of 
this report. 

IP act_phys = "DUE" .OR. act_blood « "DUE" 

.OR. act_G6PD * "DUE"; 

.OR. act__SC = "DUE" .OR. act_PPD = "DUE" 

.OR. act_YP - "DUE"; 

.OR. act_TD - "DUE" .OR. act_TYP - "DUE" 

DO TITLE 
DO RED_DATA 
ENDIP 

* Prints readiness information for everyone who 

* has at least one field requiring medical action. 
SKIP 

ENDDO 

* Loop while curric_div does not change. 

SKIP 

ENDDO 

* Loop until EOP marker is retrieved. 

ENDPRINTJOB 

SET CENTURY OPP 
DO PRN_RTRN 

* Procedure to return print varicQsles to their original 
value. 


124 







BNDIF 

SET ESCAPE ON 
SET CENTURY OFF 


* PROGRAM NAME: Backup 

* PURPOSE : Back up NEW_DATA.DBF to NEWDATBK.DBF for 

backup protection. 

* WRITTEN BY : KEVIN ALBERT BIANCHI 

* LAST CHANGED: 20 Aug 93 

SET ESCAPE OFF 

USE new_data.dbf ORDER ssno 

® 5,15 SAY "Select OVERWRITE and wait for the menu to return." 
« 13,37 SAY "Hil" 

COPY TO newdatbk.dbf WITH PRODUCTION 

* Select overwrite statement instructs the user select 
overwrite when 

* dBASE IV asks for overwrite or cancel. 

SET ESCAPE ON 

* PROGRAM NAME: Code_Nam 

* PURPOSE : Given the curriculum code this will return the 

curriculum name. 

* WRITTEN BY : Kevin Albert Bianchi 

* LAST CHANGED: 30 JUL 93 

PROCEDURE CODE_NAM 

* PARAMETERS curric_code 

* PRIVATE 


DO CASE 

CASE curric_code 
curric_name = 
CASE curric_code 
curric_ncune = 
CASE curric_code 
curric_name « 
CASE curric_code 
curric_name » 
CASE curric_code 
curric_ncune = 
CASE curric_code 
curric_nemie - 
CASE curric_code 
curric_name * 
CASE curric_code 
curric neune = 


= "30" 

"Operations Analysis" 

= "31" 

"Aerospace Engineering" 

- "32" 

"Electrical & Computer Engineering" 
= "33" 

"Weapons Engineering" 

= "3A" .OR. curric_code = "3a" 

"ASW & Electronic Warfare" 

- "34" 

"Naval Engineering" 

- "35" 

"Air-Ocean Science" 

- "36" 

"Administrative Science" 
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CASE curric_code » "37" 

curric_name ■ "Con^uter Technology" 

CASE curric_code - "38" 

curric_name » "National Security Affairs" 

CASE curric_code - "39" 

curric_name » "Joint C3 and Space" 

CASE curric_code » "04" 

curric_name » "NPGS Staff Personnel" 

ENDCASE 

* All cases assign the curriculujti name from a given curriculum 
code. 

RETURN 


* PROGRAM NAME: 

* PURPOSE : 

* 

* WRITTEN BY : 

* LAST CHANGED: 


DUE_DATA 

Con^iles the output data for the PFT report 
when 12/12/12 is entered for the date of the 
physical excun. 

Kevin Albert Bianchi 
13 AUG 93 


PROCEDURE Due_Data 

? lastname PICTURE "®T XXXXXXXXXXXXXXXXXXXX" AT 0, ", " 
?? firstname PICTURE "«T XXXXXXXXXXXX", " ", initial 

PICTURE "X", 

?? title PICTURE "0T XXXXXX" AT 35, SSNO PICTURE 
"XXXXXXXXXXX" AT 43, 

?? physical PICTURE "0E 99/99/99" AT 56, "DUE" AT 68 
mlineno * mlineno + 1 

* PFT report data line printed and line # counter advanced 
accordingly. 

RETURN 


* PROGRAM NAME : Dupechk 

* PURPOSE : Prevents duplicate data entries by doing a 

SEEK on the SSN field. 

* WRITTEN BY : Boreland 

* LAST CHANGED : 17 JUL 93 (adapted for this application) 

FUNCTION Dupechk 

PARAMETER lc_dupefield, lc_tag 

* Field and index. 
ln_select -= SELECT () 

* Identifies the work area. 

USE DBFO ORDER {lc_tag) AGAIN IN (ln_select) 
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* Opens DBF and uses current DBF indexed mem-var assigned 

* to lc_tag. 

ll_dupe - SBBK(lc_dupefield, ln_select) 

* ll_dupe assigned to duplicate field. 

USE IN (ln_select) 

* Closes DBF in the work area. 

RETURN .NOT. ll_dupe 

* Returns non_duplicate field value. 


* PROGRAM NAME 

* PURPOSE 

* WRITTEN BY 

* LAST CHANGED 


HIV_Cinnd 

Header for the HIV reports. 
Kevin Albert Bianchi 
09 JUL 1993 


PROCEDURE HIV_Ctnnd 

IP mlineno + 5 > _plength 
EJECT PAGE 
DO HIV_PgHd 
? 

? "***Coininand; " AT 0, command Style "B" AT 13 
mlineno » mlineno + 2 

* If there's only enough room for command header and two 
records 

* the page is ejected and the page header progreun is 
called 

* followed by a command header and line # counter. 

ELSE 

? 

? "***Command: " AT 0, command STYLE "B" AT 13 
mlineno = mlineno + 2 

* Command header printed and the line # counter advanced 
accordingly. 

ENDIF 

RETURN 


* PROGRAM NAME; HIV_Data 

* PURPOSE ; Compiles the output data for the Checkout 

reports (OUT_NOW and 0UT_NEXT). 

* WRITTEN BY ; Kevin Albert Bianchi 

* LAST CHANGED: 08 AUG 93 

PROCEDURE HIV_Data 

? lastname PICTURE "®T XXXXXXXXXXXXXXXXXXXX" AT 0, ", " 
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?? firstname PICTURE "«T XXXXXXXXXXXX", " ", initial 

PICTURE "X", 

?? title PICTURE "«T XXXXXX" AT 33, SSNO PICTURE 
"XXXXXXXXXX" AT 41, 

?? command PICTURE ”VT XXXX" AT 53, curric_div PICTURE "XX" 
AT 61 

?? HIV PICTURE "®E 99/99/99" AT 67 
mlineno » mlineno 1 

* Out_data report info printed and line # counter advanced. 
RETURN 


* PRCX3RAM NAME: HIV_PgHd 

* PURPOSE : Page header for the OUT_NOW and OUT_NEXT 

reports. 

* WRITTEN BY : Kevin Albert Bianchi 

* LAST CHANGED: 08 AUG 1993 

PROCEDURE HIV_PgHd 
_wrap = .T. 

* wrap must be on for "center" to work. 

_alignment = "center" 

? ptitle 
? 

? 

? 

_alignment = "LEFT" 

? LTRIM(STR(DAY(DATE()))) AT 0 
?? CMONTH(DATE()) AT 3 

?? LTRIM(STR(YEAR(DATE()))) AT (4 + LEN(CMONTH(DATE()))) 
?? "Page " AT 69, LTRIM(STR(itq?ageno,2,0)) AT 74 
? 

? "Name" STYLE "U" AT 1, "Rank" STYLE "U" AT 33, "SSN" 
STYLE "U" AT 41 

?? "CMND" STYLE "U" AT 53, "Cur/Div" STYLE "U" AT 59, 
"HIV" STYLE "U" AT 69 
? 

mlineno * mlineno + 8 
it^ageno * n^ageno + 1 

* Page title, date, page #, and column headers printed. 
RETURN 
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* PROGRAM NAME: HIV_ScHd 

* PURPOSE : Page header for the checkout reports to the 

screen. 

* WRITTEN BY : Kevin Albert Blanch! 

* LAST CHANGED: 20 AUG 1993 

PROCEDURE HIV_ScHd 
_wrap ■ .T. 

* wrap must be on for "center" to work. 

_aligninent = "center" 

? ptitle 

* Determined by the calling prograun. 

? 

_aligninent = "LEFT" 

? "Name" STYLE "U" AT 1, "Rank" STYLE "U" AT 33, "SSN" 
STYLE "U" AT 41 

?? "CMND" STYLE "U" AT 53, "Cur/Div" STYLE "U" AT 59, 
"HIV" STYLE "U" AT 69 
mlineno - mlineno + 3 
mpageno - mpageno + 1 

* Page title, a blank line, and column headers printed. 
RETURN 


* PROGRAM NAME: Locate 

* PURPOSE : Retrieves a record after querying the user 

for the SSNO. 

* WRITTEN BY : Kevin Albert Bianchi 

* LAST CHANGED: 19 JUL 93 

SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER SSNO 

* Use the new_data DBF with an index on ssno. 

GO TOP 

* Record pointer to the beginning of the DBF. 

PRIVATE MSSNO 
MSSNO = SPACE (11) 

* declare MSSNO as a local, character string variable of 11 
characters. 

@5,15 SAY "Enter the Social Security Number of the" 

@ 6,15 SAY "individual whose record you want to edit." 

@8,13 SAY "Nine numbers separated by conventional dashes" 

@ 9,23 SAY "(i.e. 123-45-6789)" 

@ 11,25 GET MSSNO PICTURE "999-99-9999" 
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READ 

CLEAR 

9 10,3 SAY "After editing a record Press CONTROL and END 
together to save changes made" 

9 11,8 SAY "otherwise press ESCAPE both actions will return 
you to the menu." 

9 15,26 SAY "Press ENTER now to continue." 

* Query user for a SSNO and assigns it to MSSNO. 

READ 
CLEAR 
SEEK MSSNO 

* Record is searched for MSSNO and put into an edit screen. 

* If the record does not exist the message below is put to the 
screen. 

IF FOUND0 -.T. 

EDIT 

ELSE 

9 5,20 SAY "This record is not in the database." 

9 15,26 SAY "Press ENTER now to continue." 

READ 

CLEAR 

ENDIF 

9 5,4 SAY "If you did not press CONTROL and END together all 
changes were not saved." 

@ 15,26 SAY "Press ENTER now to continue." 

READ 

CLEAR 

SET ESCAPE ON 


* PROGRAM NAME: OUT_Cmnd 

* PURPOSE : Header for each Command in the Checkout 

reports 

* WRITTEN BY : Kevin Albert Bianchi 

* LAST CHANGED: 09 JUL 1993 

PROCEDURE OUT_Cmnd 

IF mlineno + 5 > _plength 
EJECT PAGE 
DO OUT_PgHd 
? 

? "***Command; " AT 0, command Style "B" AT 13 
mlineno = mlineno + 2 

* If there's only enough room for command header and two 
records 

* the page is ejected and the page header program is 
called 
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* followed by a comnauid header and line # counter. 

ELSE 

? 

7 "***Coininand: " AT 0, command STYLE "B" AT 13 
mlineno - mlineno + 2 

* Command header printed and the line # counter advanced 
accordingly. 

ENDIF 

RETURN 


* PROGRAM NAME: OUT_Data 

* PURPOSE : Compiles the output data for the Checkout 

reports. 

* WRITTEN BY : Kevin Albert Bianchi 

* LAST CHANGED: 09 JUN 93 

PROCEDURE 0UT_Data 

? lastname PICTURE "0T XXXXXXXXXXXXXXXXXXXX" AT 0, ", " 
?? firstname PICTURE "®T XXXXXXXXXXXX", " ", initial 

PICTURE "X", 

?? title PICTURE "aT XXXXXX" AT 33, SSNO PICTURE 
"XXXXXXXXXX" AT 41, 

?? command PICTURE "@T XXXX" AT 57, checkout PICTURE "@E 
99/99/99" AT 64 
mlineno = mlineno + 1 

♦ Out_data report info printed and line # counter advanced. 
RETURN 


* PROGRAM NAME: Out_Mark 

* PURPOSE : Marks files for deletion. 

* WRITTEN BY : Kevin Albert Bianchi 

* LAST CHANGED: 19 JUL 93 

SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER SSNO 

* Use the new_data DBF with an index on ssno. 

* variables initialized 

PRIVATE MSSNO, record_no, mcontinue 
MSSNO = SPACE (11) 

* declare MSSNO as a local, character string varieOale of 11 
characters. 

record no = 0 
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mcontinue - "Y" 
*varieU3les initialized 


DO WHILE mcontinue = "Y" 

GO TOP 

* Record pointer to the beginning of the DBF. 

9 5,20 SAY "Enter the Social Security Number of the" 

9 6,21 SAY "record you want to mark for deletion." 

® 8,17 SAY "Nine numbers separated by conventional dashes" 

* 9,31 SAY "(i.e. 123-45-6789)" 

* 11,34 GET MSSNO PICTURE "999-99-9999" 

* Query user for a SSNO and assigns it to MSSNO. 

READ 

CLEAR 

FIND &MSSNO 

* Record is located 
READ 

IF FOUND 0 = .T. 

r<^cord_no = RECNOO 
mname > lastncune 
DELETE RECORD record_no 

9 5,1 SAY mname + "marked for deletion (press ENTER to 
continue)." 

READ 

CLEAR 

* Record # is • riev.^r^ and the record is marked for 
deletion. 

ELSE 

9 5,20 SAY "This record is not in the database." 

READ 

CLEAR 

ENDIF 

9 5,15 SAY "Do you want to mark another record for 

deletion?" 

9 7,20 SAY "Select 'Y' for yes and 'N' for no." 

9 10,35 GET mcontinue PICTURE "9M Y,N"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select" 

* Query user to continue marking files else exit program. 

READ 

CLEAR 

ENDDO 

SET ESCAPE ON 
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* PROGRAM NAME 

* PURPOSE 

* WRITTEN BY 

* LAST CHANGED 


OUT_PgHd 

Page header for the checkout reports. 
Kevin Albert Biamchi 
09 JUN 1993 


PROCEDURE OUT_PgHd 
_wrap - .T. 

* wrap must be on for "center" to work. 

_alignment - "center" 

? ptitle 
? 

? 

? 

_alignment "LEFT" 

? LTRIM (SI.v (DAY (DATE () ) ) ) AT 0 
?? CMONTH(DATE()) AT 3 

?? LTRIM(STR(YEAR(DATE()))) AT (4 + LEN(CMONTH(DATE()))) 
?? "Page " AT 69, LTRIM(STR(mpageno,2,0)) AT 74 
? 

? "Name" STYLE "U" AT 1, "Rank" STYLE "U" AT 33, "SSN" 
STYLE "U" AT 41 

?? "CMND" STYLE "U" AT 57, "Checkout" STYLE "U" AT 64 
? 

mlineno = mlineno + 8 
mpageno = mpageno + 1 

* Page title, date, page #, and column headers printed. 
RETURN 


* PROGRAM NAME 

* PURPOSE 

* WRITTEN BY 

* LAST CHANGED 


OUT_ScHd 

Page header for the checkout reports. 
Kevin Albert Bianchi 
09 JUN 1993 


PROCEDURE OUT ScHd 


_wrap = .T. 

* wrap must be on for "center" to work. 

_alignment = "center" 

? ptitle 

* Determined by the calling program. 

_alignment = "LEFT" 

? "Name" STYLE "U" AT 1, "Rank" STYLE "U" AT 33, "SSN" 
STYLE "U" AT 41 

?? "CMND" STYLE "U" AT 57, "Checkout" STYLE "U" AT 64 
mlineno = mlineno + 3 
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npageno » npageno + 1 

* Page title, a blank line, and column headers printed. 
RETURN 


* PROGRAM NAME; Out_UMrk 

* PURPOSE : Un-marks files which were marked for deletion. 

* WRITTEN BY ; Kevin Albert Bianchi 

* LAST CHANGED; 29 JUL 93 

SET TALK OFF 

SET ESCAPE OFF 

USE New_Data ORDER SSNO 

* Use the new_data DBF with an index on ssno. 

♦varicQjles 

PRIVATE MSSNO, record_no, mcontinue 
MSSNO » SPACE (11) 

* declare MSSNO as a local, character string variable of ll 
characters. 

record_no * 0 
mcontinue » "Y" 

♦variables 

DO WHILE mcontinue = "Y" 

GO TOP 

* Record pointer to the beginning of DBF. 

« 5,20 SAY "Enter the Social Security Number of the" 
e 6,21 SAY "record you want to un-mark for deletion." 

® 8,17 SAY "Nine numbers separated by conventional dashes" 
9 9,31 SAY "(i.e. 123-45-6789)" 

9 11,34 GET MSSNO PICTURE "999-99-9999" 

* Query user for a SSNO and assigns it to MSSNO. 

READ 

CLEAR 

FIND &MSSNO 

* Record is located 
READ 

IF FOUND 0 = .T. 

record_no = RECNOO 
mnaune - lastneune 
RECALL RECORD record_no 

9 5,1 SAY mncunc + "was unmarked for deletion (press 
ENTER to continue)." 

READ 

CLEAR 

* Record # is retrieved and the record is marked for 
deletion. 








II 


ELSE 

• 5,20 SAY "This record Is not in the database. 

READ 
CLEAR 
ENDIF 

• 5,13 SAY "Do you want to un-mark another record for 
deletion?" 

• 7,20 SAY "Select 'Y* for yes and 'N' for no." 

• 10,35 GET mcontinue PICTURE Y,N"; 

MESSAGE "Press SPACEBAR to scroll, ENTER to select" 

• Query user to continue marking files else exit program. 

READ 

CLEAR 

ENDDO 

SET ESCAPE ON 


* PROGRAM NAME; PE_Due_l 

* PURPOSE : Returns a logical true for the memory variable 

due if the physical excun due date is due by 
current date. 

* WRITTEN BY ; Kevin Albert Bianchi 

* LAST CHANGED; 6 JUL 93 

PROCEDURE PE_DUE_1 

IF MONTH(snext_PE) <= MONTH(DATE()) 

.AND. YEAR(snext_PE) = YEAR(DATE()); 

.OR. YEAR(snext_PE) < YEAR(DATE()) 
due = .T. 

ELSE 

due = .F. 

ENDIF 

* If the individuals physical exam was due before the current 
date a logical 

* true is assigned to due. 

RETURN 


* PROGRAM NAME 

* PURPOSE 

* WRITTEN BY 

* LAST CHANGED 


PFT_Cmnd 

Header for each Command in the PFT reports. 
Kevin Albert Bianchi 
07 JUL 1993 


PROCEDURE PFT Cmnd 
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IF mlineno + 5 > jplength 
EJECT PAGE 
mlineno » 0 
DO PFT_PgHd 
? 

? ”***Coinniand: " AT 0, command Style "B" AT 13 
mlineno > mlineno 2 

* Advances page, line # counter to zero, page header 
progreun called 

* commamd line printed, and line # counter advanced 
accordingly. 

ELSE 

? 

? "***Command; " AT 0, command STYLE "B" AT 13 
mlineno > mlineno 2 

* Command printed and line # counter advanced 
ENDIF 

RETURN 


* PROGRAM NAME 

* PURPOSE 

* WRITTEN BY 

* LAST CHANGED 


PFT_PgHd 

Page header for the PFT reports. 
Kevin Albert Bianchi 
22 June 1993 


PROCEDURE PFT_PgHd 
_wrap = .T. 

* Wrap must be on for center to work. 

_alignment = "center" 

? ptitle 
? 

? 

? 

_alignment « "LEFT" 

? LTRIM(STR(DAY(DATE()))) AT 0 
?? CMONTH(DATE()) AT 3 

?? LTRIM(STR(YEAR(DATE()))) AT (4 + LEN(CMONTH(DATE()))) 
?? "Page " AT 69, LTRIM(STR(mpageno,2,0)) AT 74 
? 

? "Name" STYLE "U" AT 1, "Rank" STYLE "U" AT 35, "SSN" 
STYLE "U" AT 43 

?? "Last_PE" STYLE "U'- AT 56, "Next_PE" STYLE "U" AT 66 
? 

mlineno * mlineno 8 
mpageno « nqpageno : 1 

* Title, date, page #, data printed, and the line # counter 
advanced. 

RETURN 
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* PROGRAM MAMB: PFT^ScHd 

* PURPOSE : Pa^ header for the PPT reports put to the 

8C3r0QXl • 

* WRITTEN BY : Kevin Albert Bianchl 

* LAST CHANGED: 20 Aug 93 

PROCEDURE PFT_ScHd 
_wrap - .T. 

* Wrap must be on for center to work. 

_alignment - "center" 

? ptitle 

* Determined by the calling program. 

? 

_alignment - "LEFT" 

? "Name" STYLE "U" AT l, "Rank" STYLE "U" AT 35, "SSN" 
STYLE "U" AT 43 

?? "Last_PE" STYLE "U" AT 56, "Next_PE- STYLE "U" AT 66 
mlineno - mlineno + 3 
mpageno > mpageno + 1 

* Title, header data printed, and the line # counter 
advanced. 

RETURN 


♦PROGRAM NAME: Phys_Due 

♦PURPOSE : This will determine the date of which an 

individual's current physical will expire. 
♦WRITTEN BY : Kevin Albert Bianchi 
♦LAST CHANGED: 19 June 1993 

PROCEDURE PHYS_DUE 

♦Varicdjles: flight, physical, DOB, next_PE 
next^PE * {} 

♦ Next physical exam due mem_var. 

IF flight - .T. 

♦ Flight designated. 

IF physical < DATEO - 62 

IF MONTH(DATE()) <- MONTH(DOB) 

next__PE - CTOD(STR(DAY(DOB) ) + "/" + 

STR(MONTH(DOB)) + " / " 

+RIGHT(STR(YEAR(DATE())),2)) 

♦ Next_PE is this years birthday. 

ELSE 

next_PE = CTOD(STR(DAY(DOB)) + "/" + 

STR(MONTH(DOB)) + "/"; 
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+ RIGHT(STR(YEAR(DATE 0) + 1),2)) 

* Next_PE is next years birthday. 

ENDIF 

* Physical not in the last 2 months. 

ELSE 

* Physical done within the last two months. 

IF MONTH(physical) - 12 .AND. MONTH(DOB) - 1 
.AND. MONTH(DATE 0) - 12 

next_PE - CTOD(STR(DAY(DOB)) + "/" + 

STR(MONTH(DOB)) + ■/"; 

+ RIGHT(STR(YEAR{DATE()) + 2),2)) 

* Next_PE when last physical was In December and 
DOB Is January. 

ELSE 

next_PE - CTOD(STR(DAY(DOB)) + "/" + 

STR(MONTH(DOB)) + 

+ RIGHT(STR(YEAR(DATE{)) + 1),2)) 

* Next_PE is next years birthday. 

ENDIF 

ENDIF 

ELSE 

* Not flight designated 

IF YEAR(DATE())-25 < YEAR(DOB) .OR. ; 

YEAR (DATE 0) - 25 « YEAR (DOB) .AND. 

MONTH(DATE 0) < MONTH(DOB) 

* Determines If the Individual Is less than 25 

IF YEAR (DATE 0) - 5 < YEAR (physical) .OR. ; 

YEAR(DATE()) 5 'EAR(physical) .AND. 

MONTH(DATE 0) < MONTH(DOB) 

* Determines If the current physical was done 

* prior to the individuals 25th birthday 

next_PE = CTOD(STR(DAY(physical)) + "/" + 

STR(MONTH(physical)); 

+ "/" + RIGHT(STR(YEAR(physical) + 5),2)) 

* Next_PE is 5 years from last physical. 

ELSE 

next_PE » CTOD(STR(DAY(DOB)) + "/" + 

STR(MONTH(DOB)) + "/"; 

+ RIGHT(STR(YEAR(DOB) + 25),2)) 

* Next_PE is the individuals 25th birthday. 

ENDIF 

ELSE 

next_PE » CTOD(STR(DAY(physical)) + "/" + 

STR(MONTH(physical)); 

+ "/" + RIGHT(STR(YEAR(physical) + 5),2)) 

* Next_PE is 5 years from last physical. 

ENDIF 

ENDIF 

snext_PE « next_PE - DAY(next_PE) + 1 
* malces physical due date the first day of the month. 

RETURN 
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*PR06SAM NAME: 
*PURPOSE : 
* 

♦WRITTEN BY 
♦LAST CHANGED: 


PPD_Due 

This will determine the date which 
Individuals' are due for their PPD shot. 
Kevin Albert Blanchl 
13 JUL 1993 


PROCEDURE PPD_DUE 

IF PPD - {11/11/11} 

next_PPD - DATEO + 1095 
ELSE 

next_PPD - CTODCOl/" + STR (MONTH (PPD)-1) + "/" + 

RIGHT(STR(YEAR(PPD)+3),2)) 

ENDIF 

♦ 11/11/11 gets 3 years added because It Is the symbol for do 
not do (allergic) 

♦ otherwise next_PPD is the first day of the month completed 
+ 3 years 

RETURN 

♦ PROGRAM NAME: PRN_RTRN 

♦ PURPOSE : Returns output which was Prepared to be put to 

the screen 

♦ back to printer settings. 

♦ WRITTEN BY : Kevin Albert Blanch! 

♦ LAST CHANGED: 15 Aug 93 

PROCEDURE prn_rtm 

RESTORE FROM scmflle.mem ADDITIVE 

_plength = mpscrnlength 

_pwait = mpwait 

_peject = npeject 

SET PRINTER TO LPTl 

ERASE scmflle.mem 

♦ Returns system variables and settings to their original 
state. 

RETURN 


♦ PROGRAM NAME: PRN_SCRN 

♦ PURPOSE : Prepares output to be put to the screen. 

♦ WRITTEN BY : Kevin Albert Bianchi 

♦ LAST CHANGED: 15 Aug 93 

PROCEDURE prn_scm 

PUBLIC mplength, n^wait, mpeject 
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* VaricUsles 
npscrnlength * 60 
nqpwait - . F. 
mpeject « "BEFORE” 

_plength - npscmlength 

jpwait - inpwait 

_peject - npeject 

SAVE ALL LIKE np* TO scmfile.mezn 

_plength - 20 
_pwait - .T. 

_peject ■ "none" 

SET PRINTER TO NUL 

* Prepares the report to go to the screen 
RETURN 


* PROGRAM NAME; RED_Cmnd 

PURPOSE : Header for each Command for the readiness 

reports. 

* WRITTEN BY ; Kevin Albert Bianchi 

* LAST CHANGED: 12 JUL 1993 

PROCEDURE RED_Cmnd 

IF mlineno + 5 > _plength 
EJECT PAGE 
DO RED_PgHd 
? 

? "***Command: " AT 0, command Style "B" AT 13 
mlineno » mlineno + 2 

* If less than 3 records will be under the new command 
header, page is 

* ejected, page header is called, command header and line 

* count is done. 

ELSE 

? 

? "***Command; " AT 0, command STYLE "B" AT 13 
mlineno = mlineno + 2 
* command header and line adjustment 
ENDIF 

RETURN 
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* PROGRAM NAME: 

* PXJRPOSE 


RED_Data 

Ccfflqpiles the output data for readiness 
reports. 

* WRITTEN BY ; Kevin Albert Bianchi 

* LAST CHANGED; 12 Jul 93 

PROCEDURE RED_Data 

? lastname PICTURE "®T XXXXXXXXXX" AT 0, firstname PICTURE 
"®T X" 

initial PICTURE "X", title PICTURE "®T XXXXXX" AT 

18 

?? SSNO PICTURE "XXXXXXXXXXX" AT 25, act_phys PICTURE "AAA" 
AT 37 

?? act_blood PICTURE "AAA" AT 42, act_G6PD PICTURE "AAA" AT 
48 

?? act_SC PICTURE "AAA" AT 53, act_PPD PICTURE "AAA" AT 58 
?? act_YF PICTURE "AAA" AT 63, act_TD PICTURE "AAA" AT 68 
?? act_TYP PICTURE "AAA" AT 73 
mlineno = mlineno + 1 

* Readiness report data line and line # counter. 

RETURN 


* PROGRAM NAME 

* PURPOSE 

* WRITTEN BY 

* LAST CHANGED 


RED_PgHd 

Page header for the readiness reports. 
Kevin Albert Bianchi 
12 JUL 1993 


PROCEDURE RED_PgHd 
_wrap = .T. 

♦wrap must be on for center alignment to work. 

_alignment = "center" 

? ptitle 

* Determined by the calling program. 

? 

? 

? 

_alignment = "LEFT" 

? LTRIM(STR(DAY(DATE()))) AT 0 
?? CMONTH(DATE()) AT 3 

?? LTRIM(STR(YEAR(DATE()))) AT (4 + LEN(CMONTH(DATE()))) 
?? "Page " AT 69, LTRIM(STR(mpageno,2,0)) AT 74 
? 

? "Name" STYLE "U" AT 0, "Rank" STYLE "U" AT 18, "SSN" 
STYLE "U" AT 25 

?? "PHYS" STYLE "U" AT 37, "BLOOD" STYLE "U" AT 42, "G6PD" 
STYLE "U" AT 48 
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?? "SC" STYLE "U" AT 53, "PPD" STYLE "U" AT 58, "YF" STYLE 
"U" AT 63 

?? "TD" STYLE "U" AT 68, "TYP" STYLE "U" AT 73 
? 

mlineno « mlineno * 8 
npageno - npageno + 1 

* Prints title, three blank lines, date, page no, and 
column headers. 

RETURN 


* PROGRAM NAME: 

* PURPOSE 

* WRITTEN BY : 

* LAST CHANGED: 


RED_ScHd 

Page header for the READINES reports put to 
the screen. 

Kevin Albert Bianchi 
20 AUG 1993 


PROCEDURE RED ScHd 


_wrap « .T. 

♦wrap must be on for center alignment to work. 

_alignment » "center" 

? ptitle 
? 

* Determined by the calling program. 

_alignment ■ "LEFT" 

? "Name" STYLE "U" AT 0, "Rank" STYLE "U" AT 18, "SSN" 
STYLE "U" AT 25 

?? "PHYS" STYLE "U" AT 37, "BLOOD" STYLE "U" AT 42, "G6PD" 
STYLE "U" AT 48 

?? "SC" STYLE "U" AT 53, "PPD" STYLE "U" AT 58, "YF" STYLE 
"U" AT 63 

?? "TD" STYLE "U" AT 68, "TYP" STYLE "U" AT 73 
mlineno = mlineno + 3 
mpageno » mpageno + 1 

♦ PUTS title, a blank line, and colximn headers to the 
screen. 

RETURN 


* PROGRAM NAME: Restore 

* PURPOSE : Restores NEWDATBK.DBF to NEW_DATA.DBF. 

* WRITTEN BY : Kevin Albert Bianchi 

* LAST CHANGED: 20 AUG 93 

SET ESCAPE OFF’ 


USE newdatbk.dbf ORDER ssno 





• 5,15 SAY "Select OVERWRITE and wait for the menu to return.” 

• 13,37 SAY "Hi!" 

COPY TO new_data.dbf WITH PRODUCTION 
USE new_data.dbf 

• Copies backup file to the main application DBF. 

SET ESCAPE ON 


TD_Due (Tetanus) 

: This will determine the date of which 

individuals' are due for their Tetanus shot. 
Kevin Albert Bianchi 
13 JUL 1993 

PROCEDURE TD DUE 


* PROGRAM NAME: 
♦PURPOSE 

■k 

♦WRITTEN BY ; 
♦LAST CHANGED: 


IF tetanus = {ll/ll/^l} 
next_TD = DATEO + 1095 
ELSE 

next_TD = CTOD("01/" + STR(MONTH(tetanus)-1) + 

+ RIGHT(STR(YEAR(tetanus)+10),2)) 

ENDIF 

♦ 11/11/11 gets 3 years added because it is the symbol for do 
not do (allergic) 

♦ other wise next_TD is the first day of the month last given 
+ 10 years. 


RETURN 


♦ PROGRAM NAME: TITLE (Rank/Service) 

♦ PURPOSE : Given an individual's military RANK (I.E. 0-1) 

♦ and SERVICE their service specific title is 

♦ determined (I.E. Ensign). 

♦ WRITTEN BY : Kevin Albert Bianchi 

♦ LAST CHANGED: 6 JUL 93 

PROCEDURE TITLE 

♦Rank is specified by military pay-grade (I.E. E-1). 

♦Service is either USN or USMC. 

IF UPPER(service) = "USN" 

DO CASE 

CASE UPPER(rank) = "E-1" 
title = "SR" 

CASE UPPER(rank) = "E-2" 
title = "SA" 

CASE UPPER(rank) = "E-3" 
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title - "SN" 

CASE UPPER(rank) = "E-4" 
title « "POl" 

CASE UPPER(rank) = "E-5" 
title • "P02" 

CASE UPPER(rank) = "E-6" 
title 1 "POl" 

CASE UPPER(rank) = "E-7" 
title « -CPO" 

CASE UPPER(rank) - "E-8" 
title « "SCPO" 

CASE UPPER(rank) = "E-9" 
title « "MCPO" 

CASE UPPER(rank) - "0-1" 
title » "ENS" 

CASE UPPER(rank) = "0-2" 
title » "LTJG" 

CASE UPPER(rank) = "0-3" 
title « "LT" 

CASE UPPER(rank) = "0-4" 
title * "LCDR" 

CASE UPPER(rank) = "0-5" 
title a "CDR" 

CASE UPPER(rank) = "0-6" 
title « "CAPT" 

CASE UPPER(rank) = "0-7" 
title « "RADM" 

CASE UPPER(rank) = "0-8" 
title » "RADM" 

CASE UPPER(rank) = "0-9" 
title « "VADM" 

ENDCASE 

ELSE 

IF UPPER(service) = "USMC" 

DO CASE 

CASE UPPER(rank) = "E-1" 
title = "PVT" 

CASE UPPER(rank) = "E-2" 
title = "PFC" 

CASE UPPER(rank) = "E-3" 
title = "LCPL" 

CASE UPPER(rank) = "E-4" 
title = "CPL" 

CASE UPPER(rank) = "E-5" 
title - "SGT" 

CASE UPPER(rank) = "E-6" 
title = "SSGT" 

CASE UPPER(rank) = "E-7" 
title = "GYSGT" 

CASE UPPER(rank) = "E-8" 
title •= "MSGT" 
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CASE UPPER(rank) - "E-9" 
title - "MGYSGT" 

CASE UPPER(rank) - "O-l" 
title - •'2LT" 

CASE UPPER(rank) * "0-2" 
title - "ILT" 

CASE UPPER(rank) - "0-3" 
title - "CAPT" 

CASE UPPER(rank) - "0-4" 
title = "MAJ" 

CASE UPPER(rank) = "0-5" 
title *■ "LCOL" 

CASE UPPER(rank) = "0-6" 
title - "COL" 

CASE UPPER(rank) = "0-7" 
title - "BGEN" 

CASE UPPER(rank) = "0-8" 
title = "MGEN" 

CASE UPPER(rank) = "0-9" 
title = "LTGEN" 

ENDCASE 

* All cases assign naval title to it's perspective 
generic rank. 

ELSE 

title = " " 

* Tile is null if data is faulty. 

ENDIF 

ENDIF 

RETURN 


♦PROGRAM NAME: 
♦PURPOSE 

* 

♦WRITTEN BY : 
♦LAST CHANGED: 


TYP_Due 

: This will determine the date of which 

individuals' are due for their Typhoid shot. 
Kevin Albert Bianchi 
13 JUL 1993 


PROCEDURE TYP DUE 


IF typhoid = {11/11/11} 

next_TYP = DATEO + 1095 
ELSE 

next_TYP = CTOD("Ol/" + STR(MONTH(typhoid)-1) + "/"; 

+ RIGHT(STR(YEAR(typhoid)+3),2)) 

ENDIF 

♦ 11/11/11 gets 3 years added because it is the symbol for do 
not do (allergic) 

♦ otherwise next_TYP is the first day of the month con^leted 
+ 3 years. 

RETURN 
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♦PROGRAM NAME; YF_Due 

♦PURPOSE : This will determine the date of which 

♦ individuals' are due for their Yellow fever 

shot. 

♦WRITTEN BY Kevin Albert Bianchi 
♦LAST CHANGED: 13 JUL 1993 

PROCEDURE YF_DUE 

IF yellowfev « {ll/ll/ll} 
next_YF = DATEO + 1095 
ELSE 

next_YF = CTOD("01/" + STR(MONTH(yellowfev)-1) + 

+ RIGHT(STR(YEAR(yellowfev)+10),2)) 

ENDIF 

♦ 11/11/11 gets 3 years added because it is the symbol for do 
no do (allergic) other wise next_YF is the 1st day of the 
month + 10 years. 

RETURN 
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APPENDIX Bt nSBR'S MANUAL 
TO THE NAVY MEDICAL AIHCIMISTRATIVB UNIT 
DATABASE SYSTEM 


I. INTRODUCTION 

The purpose of this manual is to provide a step by step 
explanation of the Navy Medical Administrative Unit Database 
System (NMAUDS 1.0). This manual is provided solely for the 
purpose of using NMAUDS 1.0. Any maintenance of the system 
will require the thesis document provided and/or knowledge of 
dBASE IV version 1.5. For further guidance in dBASE IV refer 
to the manuals issued with dBASE IV software. 

II. STARTING NMAUDS 

There are three recommended methods to initiate NMAUDS. 

(1) From a DOS batch file that will access the dBASE 
subdirectory, start dBASE IV, and execute MEDICAL.APP. 

(2) From a menu system which will execute the batch file 
previously described in option (1). 

(3) From the dbase dot prompt by typing [DO MEDICAL.APP]. 

NMAUDS.BAT is the batch file originally dispensed with 
NMAUDS 1.0. 
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WELCOME TO THE 

MAUV MEDICAL ADMIMISTRATIUE UMIT DATABASE SVSTEM 
wxKKM MMAUDS 1 0 » « » « » « 

(Press EMTER to continue.) 


Press • to continue. 


Figure F-1 Welcome Screen 

The first screen displayed in MMAUDS is the welcome screen 
Figure F-1. To continue beyond the we. .,n. ’"creen press 
<ENTER>. 

III. MENU OPERATION 

The first menu in th :■ system, the main menu, illustrated 
in Figure F-2 provides three options. The options can be 
highlighted with the arrow keys and selected pressing 
<ENTER> while the desired option is highlighted. All three 
selections produce additional menus. Deselecting these menus 
is accomplished by pressing or <Escape>. 
















Use arrow keys to hig^lig^t items in this nenu and the EHTER key to select. 


Figure F-2 Main Menu 
A. REPORTS MENU 

Figure F-3 is an illustration of the reports menu. The 
options on this menu can be highlighted with the arrow keys 
and selected by pressing <ENTER> while the desired option is 
highlighted. The first three selections on this menu exhibit 
an additional menu and they are discussed in sub-sections 1-3 
below. All reports query the operator for necessary report 
parameters. Report parameter inquiries are self explanatory. 

The fourth option on this menu is Morbidity Report. When 
selected, by pressing <ENTER>, the morbidity program is 
executed. The program will retrieve from the user the month 
of the report. 

















Figure F-3 Reports Menu 


The fifth option is Piling Report (Shelf-List). When 
selected, by pressing <}v; -v . .iimg report program is 
executed. That is, all of the records are shown in the order 
by which they are filed, the terminal digit filing system. 

The sixth option on th:'s menu is HIV Report. When 
selected, by pressing <ENTER>, the HIV report program is 
executed. All personnel who have not had an HIV test within 
the last year are listed. 

The seventh option on this menu is NP6S personnel lacking 
a code. When selected, by pressing <ENTER>, a report program 
is executed which displays the names of those individuals who 
do not have their ' ••ro- lv ^ode in the database. 
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orbidity Report 

iling Report CShelf-list) 

lU Report 

PGS personnel lacking a co 


Physical exam due today for PFT 
PE due for PFT (Queary for month) 

PE due for PFT CQueary for curriculum) 


Use the arrow keys to highlight, BITER to select and ESCAPE to return. 


Figure F-4 Physical Exams for PFT Reports 


1. Physicals Needed for PFT 

Physicals Needed for the PFT is the first item in the 
Reports Menu, When selected by pressing <ENTER> an additional 
menu is displayed. Figure F-4 is an illustration of this 
menu. The options on this menu can be highlighted with the 
arrow keys and selected by pressing <ENTER> while the desired 
option is highlighted. Deselecting this menu is accomplished 
by pressing <ESC> or <Escape>. 

The first option on this menu is Physical exam due today 
for PFT. When selected, by pressing <ENTER>, a PFT report 
program is executed which displays pertinent information on 
individuals who do not have current physical exams for the 
PFT. 
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The second option on this menu is PB due for PFT (Query 
for aonth) . When selected, by pressing <BNTER>, a PFT report 
progreun is executed which displays pertinent information on 
individuals who will not have current physical exams for the 
PFT in the month chosen by the operator. 

The third option on this menu is PB due for PFT (Query for 
Curriculum) . When selected, by pressing <ENTER>, a PFT report 
program is executed which displays pertinent information on 
individuals who will not have current physical exsuns for the 
PFT in the month chosen by the operator. 

2. Checkout Reports 

Checkout Reports is the second item in the Reports Menu. 
When selected, by pressing <ENTER>, an additional menu is 
displayed. Figure F-5 is an illustration of this menu. The 
options on this menu can be highlighted with the arrow keys 
and selected by pressing <ENTER> while the desired option is 
highlighted. Deselecting this menu is accomplished by 
pressing <ESC> or <Escape>. 

The first option on this menu is Narked Records Report. 
When selected, by pressing <ENTER>, a report program is 
executed which displays the names of individuals whose records 
are marked for deletion. 

The second option on this menu is Checkouts as of today. 
When selected, by pressing <ENTER>, a report program is 
executed which displays pertinent information on individuals 
who have check-out dates before the date of the report. 
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Figure F-5 Check-out Reports 

The third option on this menu is Checkouts as of the month 
given. When selected, by pressing <ENTER>, a report program 
is executed which displays pertinent information on 
individuals whose check-out dates are prior to the date chosen 
by the operator. 

3. Medical Readiness Reports 

Medical Readiness Reports is the Third item in the Reports 
Menu. When selected by pressing <ENTER> an additional menu is 
displayed. Figure F-6 is an illustration of this menu. The 
options on this menu can be highlighted with the arrow keys 
and selected by pressing <ENTER> while the desired option is 
highlighted. Deselecting^ this menu is accomplished by 
pressing <ESC> or <Escape>. 
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Figure F-6 Readiness reports 

The first option on this menu is Medical Readiness for 
time period given. When selected, by pressxiig <ENTER>, a 
readiness report program is executed. This report displays 
all the readiness data for individuals who are delinquent in 
at least one readiness field for the time window provided by 
the operator. 

The second option on this menu is Medical Readiness as of 
today. When selected, by pressing <ENTER>, a readiness report 
program is executed. This report displays all the readiness 
data for individuals who are delinquent in at least one 
readiness field as of the date of the report. 

The third option on this menu is Medical Readiness Unit 
Report. When selected, by pressing <ENTER>, a readiness 
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report program Is executed. This report displays all the 
readiness data for individuals who are delinquent in at least 
one readiness field prior to the date provided by the 
operator. This report option displays only the individuals 
from the curricular office (curric_div) assigned by the 
operator. 

The fourth option on this menu is One Stop Check-out 
Readiness Report. When selected, by pressing <ENTER>, a 
readiness report program is executed. This report displays 
all the readiness data for individuals who are delinquent in 
at least one readiness field and are marked for deletion. 
This report option displays only the individuals from the 
command assigned by the operator. 

B. UPDATE DATA 

Figure F-7 is an illustration of the Updates menu. The 
options on this menu are all related to the maintenance of the 
database. Each option in the menu activates a program which 
executes one or more functions which permits the operators to 
perform database maintenance tasks easily. 

The last option on this menu. Delete checkouts is only 
useful if accurate checkout data is able to be maintained. 
Mark records for deletion, Unmark records for deletion, and 
Delete marked records when used in conjunction also assist in 
check-out database management. "Mark records for deletion" 
marks records for deletion identified by social security 
number (SSN). "Unmark records for deletion" un-marks errantly 
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Reports Updflite Pit* Exit 



Use the arrow keys to highlig^it, EfITER to select and ESCAPE to return. 


Figure F-7 Update Data 

marked records marked for deletion also identified by SSN. 
"Delete marked records" purg ci :ici iKea record- from the 
database and packs the remair.ing records. 

The sixth and seventh options on this menu expedite some 
of the back up procedures r3eded in database maintenance. 
Backup DBF creates a duplicate data file for NEW_DATA.DBF 
called NEWDATBK.DBF. Restore backup to active DBF copies the 
former NEWDATBK.DBF back-up copy to the active database file 
NEW_DATA.DBF. This is helpful if the active database file was 
inadvertently altered. 

Figure F-8 is an illustration of the data input program 
that appears when Add Records, ♦‘he IL-^st item on •■he Updc.t- 
Data menu, is selected. Data input, is made easy through 
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multiple choice options and default values. If a duplicate 
SSN Is entered the error message; "Editing condition not 
satisfied (Press SPACE)" will appear. The entry for 
individuals allergic to an immunization is "ll/ll/ll" which is 
also the default value for these fields. Deselecting the data 
entry form is accomplished by pressing <ESC> or <Escape>. 

The second option on the update data menu is Single Record 
Retrieval. When selected, by pressing <ENTER>, a program is 
executed which retrieves specific records, identified by SSN, 
for browse or edit. Returning to the Update Data menu is 
accomplished by pressing <ESC> or <Escape>. 


Records Organize Go To Exit 
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Figure F-8 Data Entry Form 
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The third option on the update data menu is Edit Database. 
When selected, by pressing <ENTER>, the datatoaae is retrieved 
in the browse or edit mode with the first record in the 
datcUoase in view. Returning to the Update Data menu is 
accomplished by pressing <ESC> or <Escape>. 


C. EXIT MENU 

Figure F-9 is an illustration of the exit menu. The 
option on this menu can be highlighted with the arrow keys and 
selected by pressing <ENTER> while the desired option is 
highlighted. Selecting "Exit" will return the operator to the 
operating system. Returning to the main menu is accomplished 
by pressing <ESC> or <Escape>. 


Reports Update Pd*a E:<lt 


Exit 


DID VOU BflCKlJF! 

DID VOU BRCKUF’ 

DID VUU BfiCEUFT 

DID VOU BfiCEUf! 

DID VOU BfiCHLIF’ 

DID VOU BOCKLIF’ 

DID VriU FOf.KUF’ 

DID VOU BOCKLIF’ 

DIP VOU BfiCKLIFI 

DID VOU BfiCKUFT 

DID VOU BfiCKLIFT 

DID VOU BRCKLIF’ 

DID VOU BRCKUF! 




Use the arrou keys to highlight, EMTER to select and ESCfiPE to return 


Figure F-9 Exit Menu 
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IV. BACK-UP DATABASE 


The back-up procedures previously mentioned are useful but 
not inclusive. A back-up copy of the database should be 
updated daily to an external storage medium. This can be done 
by typing "copy C:\dbase\NEW_DATA.DBF [drive containing 
storage disk]:" at the hard drive prompt (usually c:>). 
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